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Now you can access LUCID, DISK +, 
WRITE ROM, ВАМ and others 
instantly. 


The 6 ROM BANK plus battery pack lets 
you have the ultimate Model 100 system. 
When you get your unit just press in up 
to 6 ROMS into the sockets then push in 
a simple plug into your Model 100's ROM 
socket. The ROM bank has two posts on 
either end that insert into the two little 
holes on the underside of your Model 100. 


The ROM bank props up the Model 100 at 
the same angle and height as those 
little legs you've seen. The ROM BANK 
itself is only about 172” deep and it runs 
the width of your Model 100. It only weighs 
one pound. It not only installs instantly, 
but it pops free in a second if you need 
everything to lie flat in a briefcase. 





A joint PCSG/CRYPTRONICS project. 


PORTABLE COMPUTER SURRORT GROUP 


11035 Harry Hines Blvd. No. 207, Dallas, Tx. 75229 


Change from ROM to ROM with the 
touch of a thumb switch. 


You can go from LUCID to WRITE to 
DISK 4 to any other ROMS just by turn- 
ing the thumb switch at the side of the 
ROM bank. The 6 ROM BANK is a sturdy 
well built construction that looks like it is 
a part of your Model 100. 


What is also fantastic is that the ROM 
bank has a powerful NICAD battery and 
recharger built right in. This power source 
supplies up to 30 hours of life to your 
Mode! 100 with just 6 hours of recharge. 
What's nice is that it recharges right from 
your Model 100's power adapter. This is 
a quick charge system and if you need 
power in a hurry, you can get 6 hours of 
life for your Model 100 by just charging for 
an hour and half. 


VISA / MASTER CARD / AM. EXP. / C.O.D. 


plus powerful Nicad 
battery pack that gives 
30 hours of power 
to your Model 100 


Suddenly, the Model 100 is a very 
powerful computer. 


If you have the HOLMES portable disk 
drive with its powerful bundled database 
software package or the CRYPTRONICS 
128K RAM expansion along with LUCID, 
WRITE ROM and DISK + in the 6 ROM 
bank with its rapid rechargable NICAD 
power source, you have the ultimate port- 
able system. It's all available only from 
PCSG. 


As usual we don't want you to take our 
word for it. The 6 ROM BANK is sold on 
a 30 day trial. If you are not satisfied 
simply return within thirty days for a full 
refund. MC, VISA, AM. EX. or C.O.D. 


1-214-351-0564 











Unfortunately, a lot of Word 
Processing Software is not what 
it seems. It is not easy. But it is 
expensive. 

Leading Edge wants to change 
the way you think about Word 
Processing. 


By making it easy yet inexpensive. 
Quite simply, we've taken ad- 
vantage of all the features of 
personal computers like the 
IBM® Tandy9 and Leading 
Edge® PCs and made them 
appealingly simple to use. . 
Even if you're a two-finger typ- 
ist. Even if you've never used 
word processing before in your 
life. 


Easy. Simple. A snap. Duck 
Soup. There are no codes to 
memorize. No complex func- 
tions. And the system guides you 
all along the way, in plain and 
simple English. 


What's the catch? 


There is none. Leading Edge |^ 


Software Products go from Basic 
to Brilliant. And then, Beyond. 
With the kind of support that 
everybody else promises, yet 
rarely delivers. 


To find out more, just call 800 
523-HELP and ask for our free 
brochure. It's easy to get. Easy 
to read. The only hard thing is 
understanding how Leading 
Edge Products can do so much 
for you, so fast, for so little. 


LEADING EDGE 
Word Processing 


is a registered trademark of International Business Machines. 
Leading Edge is a trademark of Leading Edge Products, Inc. 


ing Edge Software Products, Inc. 
21 Highland Circle, Needham Heights, MA 02194 
1-800-523-HELP , (617) 449-4655 
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Check out the software that completes their systems 


Tandy MS-DOS Software Comparison Chart 
fs" dBase" 7 
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no 
Allows user to create integrated programmer 
business systems required 





Developed systems and data can be 
moved to multi-user environments 
Professional support available 
from the software's authors 


CAPACITIES: 


















Fields per record 
Characters per record 1679 
Records per file 


4608 
16,000,000 
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Indexes per file 











Number of digits per numeric field 


Number of files usable concurrently 
Files span multiple drives 
FEATURES: 
Full-screen facility for creating 
custom screen layouts 
Full-screen facility for creating 
custom report layouts 


Built-in field types 
(error checking) 


User-defined field types 
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—filePro® 


The new Tandy computers 
can really speed things up. If 
you don't let obsolete 
software bog you down. 

Try filePro 16, the latest 
generation of data base 
software from the authors of 
Profile®. 

Choose it for its power 
(check our capacities); its 
ease-of-use (check our 
features); and its unique 
ability to grow as your needs 
grow, and even move the 
systems you create to multi- 
user computers. 

filePro is available for the 
Tandy 1000, 1200 and 2000 
computers (hard disk 
required). Available directly 
from us or through your 
Radio Shack store’s Express 
Order Software service. 


To order, call 

(800) 847-4740. 

For customer service or 
when ον in New York 
State, call (212) 398-9290. 
Ask for Smallware sales. 
Visa and MasterCard 
accepted. 

Also available for other computers, 


including IBM PC, IBM PC-XT, and 
NCR Decision Mate. 
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Putting the Consumer 
Electronics Show into 








Las Vegas where I attended the 

Winter Consumer Electronics 
Show, a five-day extravaganza that 
seems to crowd so much electronic 
equipment into the Las Vegas Conven- 
tion Center that there is at least one little 
LED glowing for every man, woman 
and child in North America. 

It wasn't much more than a couple of 
days after the plane (a late TWA flight, 
as usual) deposited me back in 20- 
degree weather (it was 70-plus in Vegas) 
that I was blessed with picking up a 
syndicated column to read that WCES 
“proved” the personal home computer 
market had died. 

Spare me the pundits. 

I must read a zillion “computer col- 
umns" and newsletters every month. 
And it seems everyone has a different 
interpretation. Of just about every- 
thing. In case you are unfortunate 
enough to have this same pair of clowns 
appear in your local paper, I think it is 
important to put WCES into perspec- 
tive. 

The first WCES I attended was some 
four years ago and I was amazed by all 
the electronic gadgets. Thanks to some 
friends at Antenna Electronics (a RAIN- 
BOW, PCM's sister publication, adver- 
tiser at the time), I actually got a decent 
room and some help finding my way 
around. But at the time, I bemoaned the 
lack of computers at the show and the 
fact that Tandy was "missing" from the 
list of exhibitors. 


Γον stepped off the plane from 


Perspective 


True again this year, there were few 
computer companies showing products 
and no Tandy. How come? 

Well, if you want to go to a computer 
show, try COMDEX or NCC. If you 
want to buy stereos, CD players, TVs 
and VCRs, go to CES. (You can also 
buy more electronic doo-dads there, 
and some interesting watches, too, than 
in any other place on earth.) But if you 
want computers, don't try CES. 

I took special note of the "distribu- 
tors" and "retailers" at the show (it is 
easy, everyone is color-coded by name 
badge). As Ivory Soap says, 99 and 44/ 
100 percent of them were from video 
and audio outlets. 

And why no Tandy? Simple: CES is 
a show open only “їо the trade." (They 
have signs to that effect.) Tandy, with 
its worldwide network of stores (did you 
know there are more Radio Shack 
stores than McDonalds?) doesn't need 
to sell to dealers. It sells to itself. And 
then to you. 

(A footnote: Yes, Tandy people cer- 
tainly were there. Usually they blanket 
the show looking for products they 
might want to private-label. This year 
was no exception.) 

I am tired of pundits who don't know 
the difference between CES, NCC and 
COMDEX making "learned observa- 
tions" based on bad data. Computer 
people have a term for it — “СІСО — 
Garbage In, Garbage Out." Oh well, 
they have to have something to write 
about and they probably were tired of 
talking about CD ROMs. 

I wish someone, somewhere, with 
some expertise, would somehow con- 
vince some big syndicate to let them 
write a column about computers. It sure 
would clear the air. Most of what I read 
in what is called the “popular press" 
appears to be little more than a precon- 
ceived notion on which the writer or 


writers try to find a few facts on which 
to hang them. 


One of the nicest things about being 
in Vegas is, believe it or not, the cab 
drivers. In three to four trips there a 
year, I have met only one surly fellow 
out of a whole raft of trips all over town. 

At CES I met Murray Rosner, who 
drives a cab but also writes a "taxi 
column" for the Vegas Visitor, one of 
those free newspapers that tells what's 
going on. Murray's column about 
СОМРЕХ, I think, illustrates my point 
about the difference between the two 
shows and I'd like to quote something 
he said here: 

*Every year when COMDEX arrives, 
a new word or phrase enters our vocab- 
ulary. In years past, there was 'state-of- 
the-art,' meaning the highest technically 
advanced. Then there was ‘artificial 
intelligence.’ Everybody used that term, 
but I couldn’t get a clear definition from 
a soul. 

“Last year it was ‘IBM compatible.’ 
That simply meant all programs were to 
be standardized, a blessing to both 
software manufacturers and dealers. 
This year it’s ‘VAR,’ or Value Added 
Retailer. Then there’s ‘user friendly,’ 
which means you won't panic when you 
sit down in front of the machine. 

“There is no humor in this report 
because my kid just put down a deposit 
on a ‘user friendly,’ ‘state-of-the-art’ 
‘IBM compatible’ computer from a 
‘VAR’ and expects me to pay the bal- 
ance — a classic case of 'artificial 
intelligence' on his part." 


Final footnote: Did you know that 
Tandy sold more 1000s in the last 
quarter than IBM sold PCs? Does this 
mean people are finally getting smarter? 


— Lonnie Falk 
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Also from the publishers of PCM... 


The 





THE COLOR COMPUTER MONTHLY MAGAZINE 


The Rainbow is the most comprehen- 
sive publication a happy CoCo ever had. 
It's the #1 authority for detailed informa- 


tion on the Color Computer. 





Explore the Arctic Depths 
Pursue Heart-stirring Action 


bd 
Four Great Hardware Projecta 


Our Third Annual 
Adventure Contest 


And à Full Mix 
C 





The latest news on the Color Computer grapevine is that 
more and more people are discovering The Rainbow.9 


Now in its fifth year, The Rainbow has 
become the standard by which other Color 
Computer magazines are compared. And no 
wonder! The Rainbow towers above the 
crowd, now offering up to 300 pages each 
month, including as many as two dozen 
type-in-and-run program listings, a host of 
articles and in excess of 20 hardware and 
software product reviews. 

We lead the pack in Color Computer 
publications and are devoted exclusively to 
the Tandy Color Computer. We made our 
climb to the top by continually offering the 
best and the most by such well-known 


THE RAINBOW 
The Falsoft Building 


P.O. 


Box 385 


Prospect, KY 40059 


YES! Sign me up for a year (12 issues) of THE RAINBOW. 


Name 


Address 


City 


State ZIP 





Payment Enclosed O 


Charge Visa О 
My Account # 


MasterCard Γ] 


authors and innovators as Bob Albrecht and 
Don Inman, and games from top pro- 
grammers like Robert Tyson, Fred Scerbo 
and. The Rainbow offers the most in enter- 
tainment and education, home uses, tech- 
nical details and hardware projects, tutor- 
ials, utilities, graphics and special features 
like Rainbow Scoreboard and our CoCo 
Clubs section. 

For only $31 a year, you get the keys to 
all the secrets locked in your CoCo! 

Are you searching through the jungle of 
claims and clamor? Climb above it all. Look 
up. Find The Rainbow. 


S| х 
VISA" (MasterCard | 





American Express O 





Signature 


Card Expiration Date 


THE RAINBOW 
(502) 228-4492 


Subscriptions to the RAINBOW are 
$31 a year in the United States. Can- 
adian rate U.S. $38. Surface rate to 
other countries U.S. $68; air rate U.S. 
$103. All subscriptions begin with 
the current issue. Please allow up to 
5 to 6 weeks for first copy. Kentucky 
residents please add 5% sales tax. 
U.S. currency only, please. 


Prices subject to change. 


In order to hold down non-editorial costs, we do not bill. 





|||] Letters to PCM 


NEW MS-DOS 


Editor: 

The August issue of PCM referred to 
a new BASIC and a reversed MS-DOS 
for the Tandy 1000. My local Radio 
Shack store doesn’t know anything 
about this and Computer Plus says they 
simply ship the latest revision. How can 
you tell if and when these changes are 
available? Will the BASIC and MS-DOS 
manuals, which are available separ- 

ately, also be updated? 
N.J. Wilkaitis 
Energy, IL 


Tandy has just released a new 
version of MS-DOS and BASIC 
for the Tandy 1000. The latest 
MS-DOS version is 2.11.22, and 
the latest BASIC version is 1.01.00. 
This upgrade may be obtained by 
contacting your local Radio 
Shack and making arrangements 
to bring in your original MS-DOS 
diskette and having the new ver- 
sion copied onto it. 

When there is a product up- 
grade that Tandy classifies as 
“required,” they notify all regis- 
tered users of the product. It is 
therefore important, according to 
Tandy, to complete and mail all 
software registration cards as 
soon as you open the product 
package. 


1000/1200 COMPATIBILITY 


Editor: 

I am the happy owner of a Tandy 
1200. I have several friends who have 
the Tandy 1000; sometimes programs 
that run on my computer will not run 
on the 1000. I’ve also noticed that you 
often list programs for the 1000, but 
sometimes they are not rated for the 
1200 as well. Since the 1000 is an IBM 
compatible as is the 1200HD, what is 
the difference between the two compu- 
ters? 

Larry Roberts 
Lansing, MI 


It is rare to find software that 
runs on a Tandy 1200 that will not 
also run on a Tandy 1000. This is 
usually due to the differences in 
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the keyboard on the Tandy 1000 
or its lack of support for the 
standard IBM monochrome a- 
dapter. 

It is quite common, however, to 
find software written for the 
Tandy 1000 that will not function 
on the 1200. Since the Tandy 1000 
supports more graphics and 
sound modes than the IBM PC or 
the Tandy 1200, software that uses 
these extended features, such as 
many programs listed in PCM, 
will not run on the Tandy 1200. 

To determine if a program is 
going to run on your computer or 
not, look for your computer's 
model number in the upper right- 
hand corner of the lead page for 
the article. 


DELPHI QUESTIONS 


Editor: 
I am writing to obtain additional 
information on Delphi. 
I am a new computer user and have 
a limited knowledge of what they can 
do. However, I do want to learn all I can 
and I find the operation fascinating. 
Just what is available on Uninet, 
Tymnet, etc.? What are the charges? 
What does it cost to join? 
Thomas A. Larsen 
Carmel, CA 


Delphi is a computer informa- 
tion service, whereas Uninet and 
Tymnet are simply there to pro- 
vide a communications link be- 
tween your local telephone and 
the Delphi computers in Boston. 
You can think of Uninet and 
Tymnet as you would a telephone 
company. They are just a connec- 
tion between you and the person 
youre talking with. 

Delphi offers many services 
such as electronic shopping, news 
and weather, electronic mail and, 
of course, the PCM-sponsored 
MS-DOS Special Interest Group. 
In the MS-DOS group, you can 
find new software, share ideas and 
questions with other users, and 
perhaps learn a little more about 
the computer you're using. In 
addition, there are other groups 


for different special interests that 
you might find interesting. 


PASCAL PROPONENT 


Editor: 

I recently puchased a Tandy 1000 
computer through a mail order source. 
I saved over $320 just by paging through 
your magazine one day at a newstand 
and discovering their ad. By the way, I 
never would have discovered this mail 
order store or any other “non-Tandy” 
product source, had I picked up a copy 
of your magazine as sold at one of my 
local Radio Shack Computer Centers, 
but that is worthy of another letter. 

I just wanted to congratulate you on 
what seems to be one of the highest 
quality “dedicated” computer maga- 
zines I have ever seen. I found all of your 
articles to be interesting and informa- 
tive. I was also pleased to see how many 
third-party companies are actively 
supporting Tandy's MS-DOS line. 

But the thing that really spurred me 
to buy your magazine, and write this 
letter, was the fact that I am a Turbo 
PASCAL devotee. This marks the first 
time I have ever seen a magazine publish 
a program written in this terriffic lan- 
guage. Now I will admit that before I 
purchased my Tandy 1000, I really 
didn't pay too much attention to the 
types of programs that were in maga- 
zines, but Turbo PASCAL programs 
must be few and far between. So you 
can imagine my surprise when I found 
two programs written in this language 
in just one issue of your magazine. That 
convinced me that PCM would be the 
magazine for me. 

Please extend my thanks to the au- 
thors of these two programs in your 
January issue, Rick Boozer and John 
Harrell. 

James K. Roth- Roffy 
St. Louis, MO 


Thanks for your kind words. 
We were frankly hesitant to print 
PASCAL programs, since not all 
users have access to a PASCAL 
compiler, but the response we've 
gotten from the two we published 
has inspired us to keep at it. 

OK PASCAL programming wi- 
zards out there, let's see what you 
have! 





PORTABLE PROTECTION 
PROBLEM 
Editor: 

After examining my article “Portable 
Protection" (January 1986), I found a 
few bugs in Listing 2, FILCDR.BA. I 
have corrected the errors and the cor- 
rections are as follows: 

Delete lines 80-140 and replace lines 
80-100 with the following lines: 


80 IFNOTEOF (1) THEND=D+1:A=ASC 
(INPUT$(1,1)) :B=ASC(MIDS(COS, 
(0М008)+1,1) ):C=AXORBIFC=@0RC 
=260RC=127THENPRINTH2, CHRS(A) 
; :GOTOB@ELSEPRINT#H2, CHRS(C 

; :GOTOBÓ 


90 CLOSE1,2:IFTR-3THENKILLFI 
$:NRME^"ZZ22222.D0^"RSFIS$ 


100 MAXF ILES-0:MENU 


Chris Miller 
Larchwood, IA 


PRINTER PROBLEM SOLVED 


Editor: 

I would like to help answer a letter 
from a C.F. Thompson, Nelson, British 
Columbia, that appeared on Page 8 of 
your August 1985 edition. 

I had the same trouble with double 
letters occasionally when a Tandy 
DMP-200 connected to my Tandy 1000. 
I bought both pieces, plus others, from 
a local Radio Shack dealer at the same 
time. I now have a 1000, two disk drives, 
384K RAM, clock and calendar board, 
internal modem, DMP-200 printer and 
CM-2 monitor. I use Multimate mostly, 
some Desk Mate and pfs:Write once in 
awhile. 

When I reported this problem, the 
store manager knew nothing about it, 
but when I contacted the service man in 
the same building, he knew what was 
wrong. I have a very early model and 
apparently this same problem was 
experienced elsewhere. They made a 
change in the production. The printer 
pulse was marginally too long and 
sometimes the printer would reprint a 
character. There was a “Tech Tip,” to 
modify the printer circuitry to let it 
trigger with the leading edge of the pulse 


and not the entire pulse. That fixed it 
nicely. 

When using pfs:Write, the printer 
would not print the text. But, strange- 
ly enough, it would print a message 
saying that it could not print. 

David I. Smith 
Erie, PA 


OF TANDY AND PCM 


Editor: 

I wish to bring to your attention a 
fairly trivial point in response to Lonnie 
Falk’s statement (““LPRINT,” De- 
cember 1985: “. . . this marks the first 
time that John Roach ... has been 
featured on the cover of a computer 
magazine.” I refer you to the cover of 
the December 1984 edition of 80 Micro. 
Pictured alongside a then-new Tandy 
1000 is Mr. Roach, in an (almost) 
identical pose (even wearing the same 
suitcoat!). In fact, the two pictures are 
so similar they could both have the same 
caption: “Why is this man smiling?” The 
answer being, of course, “You never 
know what we Texans have up our 
sleeves, do you?” 

Indeed, if Tandy keeps up this pace 
of technological innovation and price 
reduction (as witnessed by the Models 
100, 1000 and 1200), they may be able 
to regain much of the market share that 
they lost through mishandling earlier 
on. I believe Tandy has of late shown 
considerable willingness to mend its 
ways and, among other things, to be 
much more responsive to popular de- 
mand. 

PCM has, since its onset, been a 
powerful force to this end, and should 
be given quite a bit of credit for provid- 
ing the impetus for many of these 
changes. 

Tandy still has a “way to go” to reach 
perfection for many of its policies, and 
hopefully PCM will be here for quite 
some time to provide a voice for all of 
us who wish to both applaud and cri- 
ticize Tandy. (Although I hope less of 
the latter will need to be done.) 

Many kudos to you for your article 
“In defense of BASIC” in the same issue 
— it echoed my feelings exactly. Despite 
having introduced millions of novices to 
the world of programming, and almost 
certainly making the computer revolu- 


tion as such possible, BASIC is frowned 
upon by the proponents of all the 
wonderful structured languages such as 
PASCAL and C. But face it, like our 
wonderful, unglamorous Tandy com- 
puters, BASIC is a true workhorse that 
gets the job done with a minimum 
amount of time and effort, and is more 
than adequate for all but the most 
demanding tasks. 

Mark D. Deavult 

Churchview, VA 


HOMEWORD HINTS 


Editor: 

We are a two-person law office using 
a Tandy 1000 computer with duel disk 
drives. We use the Tandy Homeword 
word processing program. 

We are very pleased with it and have 
come up with a way to get some symbols 
that we frequently use. 

First, find the symbol you want in the 
column on the left. Next, depress and 
hold the ALT key while pressing the 
corresponding numbers in the right 
column on the numeric keyboard (do 
not use the numbers at the top of the 
alphanumeric keyboard). 

You might or might not get a symbol 
like the one you want to print, but if in 
doubt, press F10 with the cursor over the 
symbol and see if the number displayed 
corresponds to the symbol you want. 


Symbol Number 
$ 192 
ç 222 
1⁄4 172 
% 173 
РА 174 
{ 175 
£ 163 
zi 166 
T 168 
E 169 
Θ 170 
Θ 171 


We enjoy your magazine, but we have 
not seen any articles on Homeword. We 
would love to see one, particularly 
detailing ways to use such things as the 
subscripts and superscripts that are 
used for footnotes. 

Dan Gilbert 
New Orleans, LA 
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An accident has sent our time-traveling Adventurer back 
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By Leonard Hyre 


ot long after I discovered how handy a 

computer can be, I stumbled through my 

first Adventure. When the quest was 
achieved (escaping from a derelict spaceship), the 
satisfaction I felt was immense. I was hooked from 
then on! 

This Adventure, The Land of the CAVE BEAR, 
was written in hopes I could show some of my 
computing friends just what they were missing. I 
had in mind an Adventure that was unique and 
challenging, but at the same time it had to be fun. 
And more importantly, it had to be solvable in a 
reasonable amount of time, even for a novice. 

As my collection of computers (my family's 
terminology!) grew, so did the rewrites and updates 
to CAVE BEAR. Now, with the Tandy 1000 on 


Leonard Hyre works as a claims representative for 
the Social Security Administration. He has written 
several articles for THE RAINBOW, PCM'S sister 
publication for the Color Computer, and is the 
author of a number of commercial programs. He 
may be contacted at P.O. Box 403, Cambridge, 
MD 21613; 301-228-0064. 


hand, I couldn't resist the upgrading of my old 
friend, the hapless Adventurer in Land of the 
CAVE BEAR. 

CAVE BEAR takes place in the far distant past, 
50,000 years B.C. The Neanderthal people populate 
the world, surrounded by strange and exotic beasts. 
An accident has sent our time traveling Adventurer 
back to this place. Your job is to stay alive and 
figure out how to get back to the present. . 

To solve the mystery, you guide the Adventurer 
with simple two-word commands, the first of which 
is a verb. For example, GET ROCK, G0 SOUTH or COOK 
STERK are all legal commands. The program will 
respond accordingly and appropriately (usually!). 
There are also a few single word commands, 
standard to most Adventures. An example is the 
word INVENTORY, to get a list of the items the 
Adventurer is carrying. Another is LOOK to get a 
description of the surroundings. All commands 
should be made in uppercase (caps key on), and 
two-word commands should be separated by a 
single space. 

You may be interested in knowing how an 
Adventure works, or even may be contemplating 
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writing one yourself. I have tried to 
interlace CAVE BEAR with sufficient 
REM statements to lead you through the 
main sections of the program. Addi- 
tionally, let me explain some of the 
main routines in detail. 

The program starts out with an im- 
mediate jump to the title screen (GOTO 
1960), a subroutine which in effect is 
like a separate small program. The first 
instruction, CLEAR ,,, (32768) sets up 
enough work space for Screen 5 
(medium-res with 16 colors). Using 
simple line and draw commands, a 
picture is drawn of a distant volcano. 
For dramatic effect, we see lightning 
strike with a distant crackle and roar. 
The name of the program and a credit 
to me (ego strokes) is given. To begin 
play, any key can be pressed. Until a key 
is pressed the program loops continu- 
ously through the striking lightning and 
thunder subroutine, Lines 2080 to 2210. 
Breaking out an earlier PCM and reread- 
ing Bill Barden’s article on sound effects 
on the 1000, saved me much time here. 
Machine specific articles are invaluable 
as reference materials. 

After a key is pressed the program 
proceeds to the “Scenario Screen.” This 
sets up the events that lead up to the 
Adventure in time, telling the user what 
led to the accident and giving some clues 
as to how they (the users) may get back 
to the present. The scenario scene 
encompasses lines 2210-2340. Pressing 
any key here sends the traveler plunging 
into prehistoric terror. The traveler 
watches the years recede to a distant 
50,000 years B.C. (lines 2380-2450). 

Now, after our short diversion, the 
program proper begins execution with 
the RUN 14@ command in Line 2450. At 
this time, we need to set up a bit of 
housekeeping, DIMensioning arrays and 
setting initializing values to various 
variables (lines 150 and 200). 

When writing an Adventure, you 
must first decide on the events that will 
take place and, using them as a guide, 
draw a map of the rooms (locations) in 
the Adventure. You then place objects, 
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some needed and some not, in those 
locations. Now, you are armed for 
creating the Adventure itself. 

The program must be able to control 
all of the above. Thus we must now 
READ in all of the DATA needed. Lines 
240-500 list all the data statements. 
Type them carefully; a mistake here will 
result in errors showing up later in the 
program, a difficult situation to resolve. 
The statements are read by lines 420- 
690. An example of this would be Line 
560, which reads in the rooms (loca- 
tions) as PS(C), the C ranging from 1 
to 17. After reading them in, our pro- 
gram can identify locations by refer- 
ence. The location C$(1) is “A 
SHADED HILLSIDE PEPPERED 
WITH BUSHY COVER,” the first 
piece of data encountered by Line 560. 

The next routine, at Line 600, gets the 
description of each object to be found, 
ashort version of the same and an initial 
location for each of the objects. For 
example, the DRTR for this routine is 
contained in lines 340-400; thus the first 
object description is *REMAINS OF 
THE TIMECRAFT CRASH” and will 
be found at location 1, the "SHADED 
HILLSIDE." The short object descrip- 
tion makes it easier to manipulate an 
item, as in GET ROPE instead of *GET 
BRAIDED ROPE OF INTER- 
WOVEN VINE." 

Possible directions of travel are the 
subject of the next routine, found at 
lines 640-650. Numbers representing all 
possible exits from the 17 locations are 
read in here. Of course, some exits are 
temporarily or permanently blocked, as 
required for story flow. 

The list of possible verbs is added 
next (Line 690), giving a control 
number for each, C(C). This allows the 
program to jump to the proper routine 
within the program once a verb is 
determined. 

Finally, actual play begins at Line 
730. The first lines check on remaining 
“Strength Level," check for special 
conditions, tell us where the Adventurer 
is, what he sees and asks for the next 


action. The ON Α GOTO in Line 1070 
sends the program off to the appro- 
priate routine, based on the verb used. 

The bulk of the program is made up 
of these individual routines. It is easy 
enough to follow through the logic. As 
an example, say the command is DROP 
ROPE, in which the verb “DROP” (4) 
sends the program to the fourth subrou- 
tine shown in the ON A GOTO; in other 
words, Line 1210. Here, a loop checks 
the user’s input object (rope) against all 
known objects, and if a match is made, 
and the item is currently being carried 
(Location 1000), Line 1230 is executed 
and the object is dropped. If no match 
is made, Line 1250 explains “I don’t 
have the rope.” 

A couple of tips may help you out. 
For directions of travel you can say GO 
SOU, GO NOR, GO EAS or GO WES. To see 
what you are carrying, type INV instead 
of INVENTORY. Most objects can be 
abbreviated by the first three letters of 
the word, an example being SAB for 
SABRETOOTH. One other thing ... 
watch your strength — even time travel- 
ers must eat and drink! 

If you wish to avoid typing in the 
program, remember, it will be available 
on PCM ON DISK or Delphi’s 
GROUP MSDOS board for a small fee. 
Also, if you prefer, you can send me $8 
and I will send you a copy on disk. My 
address is L. Hyre, P.O. Box 403, Cam- 
bridge, MD 21613. If you have any 
problems with CAVE BEAR, feel free 
to call me any evening after 5:00 p.m. 
EST at (301) 228-0064. 


Tandy 1200 and 2000 Owners 

The program, as written, is for the 
Model 1000. However, you should be 
able to create a working copy for either 
the Tandy 1200 or Tandy 2000 without 
much difficulty. The easiest way is to 
eliminate the title screen altogether by 
not typing in lines 1960 to 2200 and 
changing Line 100 to БОТО 2220. You 
may encounter other minor syntax 
problems, but nothing of a substantial 
nature. 


HARD DRIVE PRICE BREAKTHROUGH 


STARTING Α΄ 


5 to 60 megabytes complete ea 
— will | boot just | ©, d ur" 
same day shippin; k — fast service ics aA des 
"aiat | 


LN VAILABLE — - 
G ORF PE BACK UP SYSTEMS 
1 nple e internal and external systems 
Tar $^ TURBO — DUAL SPEED 
AO. — one floppy >.> — dock a endar — serial port — parallel port 


т топосһготе сага — nochrome monitor with tilt and swivel base 
Keytronics 5151 style Ж». + — one year warranty — shipped from stock 


299.95! 


a and external systems ` 


ly warrante £ : 1 







en 


rS 
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MEGADISK™ HARD DISK DRIVE SYSTEMS TOLL FREE ORDERING 1-800-343-8841 
For the { IBM/PC, Tandy 1000, TRS/80 Models I/III/IV/4P, Compaq, PC Workalikes, Color Computers, Heath/Zenith, Max/80 


Complete with Hardware, Cables, Software and Quikfit Installation 

5 Megabytes Internal Mount 
10 Megabytes Internal Mount 
20 Megabytes Internal Mount ? 

5 Megabytes External System ..............:......:....: ^ s starting at 
10; Megabytes. External να И: aee ana nonae ерл νυν ex starting at 
20 Megabytes External System AC starting at 

Tape Backup System — Internal Or External starting at 
DOS Systems Available: IBM/Heath — DOS, 1.0, 2.0, 2.1, 3.0, or later 


TRS/80-LDOS, TRSDOS 6.x, Newdos/80, Dosplus, CP/M, COCO DOS, Max/80 LDOS, OS9 
FULLY WARRANTIED — PARTS AND LABOR — 24 HOUR SERVICE — CALL TOLL FREE — 1-800-343-8841 


IBM ENHANCEMENT CARDS 

Multifunction with 384K А Color graphics 

Serial port, parallel port Monochrome/RGB Color 

Clock calendar, game port Disk controller with cable — up to 4 drives 
Serial port А 384К тетогу 
Monochrome only ; Hard drive controller 
Monochrome graphics w/parallel port ἡ Keytronics 5151 style keyboard 

Network card 249.95 





DEALER INQUIRIES INVITED PRICES CHANGE EVERY DAY 
— 1-617-872-9090 CALL 1-800-343-8841 


95 SOFTWARE SUPPORT, INC. 


1 Edgell Road, Framingham, MA 01701 (617) 872- 9090 Telex-383425 
Hours: Mon. thru Fri. 9:30 am to 5:30 pm (E.ST.) Sat. 10 am to 3:30 pm 
SERVICE POLICY — Our Professional Technical Staff Is Available To Assist You Monday Through Saturday. 
WARRANTIES — Up To One Full Year Parts And Labor. Floppy Disk Drive Power Supplies — Five (5) Years. 
SERVICE — 24 Hour Turn-A-Round On All In-Stock Parts. Dealer Inquiries Invited. Call 617-872-9090 


Handing And insurance ТОЙ Free 1-800-343-8841 mnm 


Prices and re ll? May ун 
Cash Discounted Prices Please Call For Our Latest Price Saving Specials. Without Notice. 
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199 GOTO: 1960 

119° 

1290 νασοος GO DRAW TITLE SCREEN жузе 

139 ' 

1498 DEFINT S 

159 DIM P$(18),0B$(295),B$ (29),B(295,C$(295,C(29);; TC 17), 1900, п). 
160 

179. f 

189 οσο SET INITIAL VALUES AND LIST DATA STATEMENTS Noti 
199 t НҮН ! 
209 σςτ5:2ΖΝ-1:5-166:πτ-Ρ:5Κ-ρ:.Χ-6;Μ-1;Ττ-1;701-1:τΤΡ-..ἀ.. 

214. HH 

229 ορ LOCATION DESCRIPTIONS iver 

23601 


RANGE HERBIVORES GRAZE PEACEFULLY. HERE ISTHE REST ОЕ ΤΗΕ CRASH REMAINS - COVER 
ED BY ROCK AND DEBRIS! (IF ONLY YOU HAD SOME DYNAMITE OR SOMETHING!) 00). | 
259 DATA A STILL SMOKING VOLCANIC: MOUNTAIN, A ИНН LIT AND: ΕΟΚ: ШШ ЖҮН THE 
RE'S NO SIGN OF LIFE AROUND. ИН 
260 DATA A FLINT OUTCROPPING ON A GRASSY KNOLL.) ΤΗΕ FLINT SEEMS TO НАТЕ BEEN чо 

RKED! , A) BUSY WATERHOLE 


279. DATA А SWAMPY HOLLOW WHERE A HERD OF MASTODON) PLAYFULLY WALLOW IN THE MUCK, A ИН 


NEANDERTHAL CAMPSITE. THERE ARE SIGNS OF VERY RECENT USE. 
289 DATA RIDGE OVERLOOKING A HUGE SABRE TOOTH LION FEEDING ΟΝ. A FRESHLY 'KILLEDAN 
TELOPE. A SOFT BREEZE BLOWS FROM THE EAST., INSIDE A EERIE DARK GAVE: PN TRANCE LA. 

GROWL IS HEARD, ‚А NEANDERTHAL CAVE + DAMP AND COOL. | | 


290 DATA А TINY SECRET CHAMBER LIT BY TORCH. IT IS PAINTED WITH STRANGE BEASTSBO HE 
TH REAL AND IMAGINED,A NARROW PATHWAY ALONG A DEEP CREVICE, A ИНК. AND TOTALLY Ha 


NPENETRABLE FOREST. YOU WOULDN'T WANT TO LINGER HERE. 

30g DATA AN EXPANSIVE MARSHY BOG,A MOSQUITO INFESTED. 'SVAMPLAND , А LARGE PLAINS. AR 
EA- КАВ TOO LARGE TO SET OUT ON. А SULPHURIC CLOUD RISES Hh A FAR DISTANT VOL 
CANO. I | ИНИ 

319" i f 
320 "οσο OBJECT DESCRIPTIONS, OBJECTS, OBJECT LOCATION week 
339 ' 

349 DATA REMAINS OF THE TIMECRAFT CRASH,*,1,EMPTY CANTEEN, CANTEEN, FH THE. CONTROL. i 
PANEL,*,2,THE POWER CANISTER ---THE TIME DILATION LOCATER MISSING!;*,2, FLASHLIG 
HT, FLASHLIGHT, 2 ИН 
359 DATA HARDENED LAVA FLOW,*,3,CRUSTY SULPHUR DEPOSITS,SULPHUR,3; BUSHES | LADEN №. 
ITH RED BERRIES,BERRIES,4 “MENACING LOOKING: CLUB; CLUB 4: 

36g DATA POTASSIUM NITRATE DEPOSIT, POTASSIUM NITRATE, 4, FLAKED: SPEARHEADS, SPRARHE. 
ADS,5,BRAIDED ROPE OF INTERWOVEN VINE,ROPE,5,0LD HOLLOWED OUT LOG; LOG 6, FRUIT TR. 
EES GROWING ALONG THE BANK. BABOONS ARE FEEDING ON THE FRUIT, FRUIT, 6. Н 
379 DATA UGLY WARTHOG ROOTING UP THE EARTH,*,6,BRIGHTLY FEATHERED HOATZIN,* HAM 
ASTODON HERD,*,7,FIRE HARDENED SPEAR SHAFT, SHAFT, ,8; CHARCOAL EMBERS, CHARCOAL, 8 
389 DATA SABRE TOOTH LION,*,9,TASTY LOOKING ANTELOPE STEAKS,STEAKS,9 i 


390 DATA CRAMPED NARROW PASSAGEWAY, *,11,YOUNG NEANDERTHAL WOMEN, κ, 11, A GNARLED (К 


LD MEDICINE MAN,*,11,A RING OF CAVE BEAR SKULLS, juni 12; THE TIME DILATION | ‘Loca | 


TER, LOCATER, 12 
499 DATA A DRIED ANIMAL SKIN,SKIN,; 15; SMALL ROUNDED STONES, STONES, 16, THOUSANDS О 


F QUAGGA AND OTHER HERD ANIMALS,*,17 

n ΠΚΣ EXITS: FROM INDIVIDUAL LOCATIONS жузе i HHH | 
kap DATA 9,4,2,9,9,5,9,1,0,-1,9,9,1,7,5,0,2,8,6,4,-1,9.14,5,4,16, 8,8, 5,15,9,7, Wo 
-3,19,8,17,2,9,9,19,9,13,9,13,9,9, 9, 9,12, 9, 11,9, 7,9, 6,9, 9,9, 16,7, 9,19 5. p, 19,9,9. 
iin λος VERBS [ INCLUDING SINGLE WORD COMMANDS] dotesetese 

479 ' 
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489. DATA INVENTORY,l,LOOK,2,VIEW,2,GET,3, TAKE, 3, DROP, 4, GO, 5, KILL, 6, HIT, 6, ATTACK, 
6, STAB, 6 

499. DATA EAT, 7, DRINK,8, SWIM, 9, MAKE, 19, BUILD,11,COOK,12, LIGHT, 13; FLOAT, 14,R0W;14, 
FILL,15,HELP,16,CRY,17,YELL,18 

500 DATA SAY,19,LISTEN,29,LIFT,21,WEAR,22 

519." 

529 ο READ IN THE DATA wes 

539 ' 

549 θά READ IN PLACES зе 

559." 

560 FOR С=1 TO  17:READ P$(C):NEXT C 

579." 

589 λαο READ IN DESCRIPTIVE OBJECTS, OBJECTS, LOCATION OF OBJECTS жу 

599 ' 

699 FOR C-1 TO 29:READ OB$(C),B$(C),B(C):NEXT C 

61g. ' | 

629 ‘seek READ POSSIBLE EXITS FROM EACH LOCATION www | 

639." 

649 FOR C91 TO 17:READ T(1,0),T(2,C),T(3,0), T(4; C) : NEXT С 

659 TS(1)-9"NORTH":T$(2)-"SOUTH" : TS (3) "EAST" : TS (4) e" WEST" 

66g ' 

679 "οκ READ IN VERBS were 

689." 

699 FOR C=1 TO 28:READ C$(C),C(C):NEXT C 

799" 

719 "нее ACTUAL PLAY BEGINS HERE Jer 

729." | 

739 CLS:RDeINT(RND(1)*9)41:S-S-RD:IF S»19g THEN S=199 ELSE IF S-- THEN 1819 ELS 
E 749 

749 CLS:WIDTH 89:COLOR 2,9:LOCATE 1,1,9:PRINT"STRENGTH LEVEL IS NOW ";S; LOCATE. 
2,1:PRINT STRING$(89," "); 

759 IF CSRLIN>29 THEN GOSUB 1929 | 
769 LOCATE 25,29:COLOR 6,9:PRINT"The Land of the CAVE BEAR! by L. Hyre"::C 
OLOR 2,9 | 
779 LOCATE 4,1,1:PRINT"YOU ARE AT ";PS(L) 

789 IF L-19 AND LEFT$(OB$(29),3)-"SAB"THEN B(29)=19 

799 IF L-2 AND B(19)=1999 THEN B(19)-2:BS(19)-'*" :0B$ (19) -  POTASIUM NITRATE": pes 
LD-1 
800 IF L-2 AND B(19)-1999 THEN B(19)-2:B98(19)2"*":LD-LD-1l 

819 IF L=2 AND B(7)-1999 THEN B(7)92:B$(7)9"*":LD-LD-l | 

829 IF 152 AND B(19)-2 AND B(19)-2 AND B(7)22 THEN B(19)-9:B(19)-9:0B$(7)-"EXPLO  . 
SIVE" und i 
830 IF L-2 AND B(26)-199g THEN B(26)-2:LD-LD-1 

849 IF Le2 AND B(7)=2 AND B(26)-2 AND OB$(7)-"EXPLOSIVE"THEN 1789 

859 IF CI=1 AND 1-16 AND LEFT$(B$(29),2)-"DE" THEN. 1859 

869 IF CI-2 THEN T(3,19)-9 

870 IF CSRLIN>2@ THEN GOSUB 1929 ELSE PRINT 

889 PRINT"YOU SEE:" 

899 FOR C=1 TO 29:IF B(C)=L THEN PRINT OB$(C);" " 


999 NEXT C 
910 IF 1=1 AND B(29)-19 AND LEFTS (OBS (20), 3)="SAB" THEN 1829 


920 IF CSRLIN»29 THEN GOSUB 1929 ELSE PRINT 

939 PRINT"FROM HERE YOU CAN σο:” 

949 FOR С=1 TO 4:1F T(C,L)c»9 THEN PRINT T$(G);" ἡ; 

959 NEXT 

969 IF CSRLIN>2@ THEN GOSUB 1929 ELSE PRINT 

979 PRINT"WHAT NOW"::INPUT ACTS im 
989 FOR С=1 TO LEN(ACT$):IF MIDS(ACT$,C,1)-" "THEN VRBSALEFTSCACTS, 6:1): W$-MIDSC 
ACTS, C+1, LENCACT$)-C): GOTO 1999 ELSE NEXT 
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999 VRBS=ACTS 


1999 FOR C=1 TO 28 
1919 IF LEFTS$(C$(C),3)-LEFTS(VRBS,3) THEN A-C(C):GOTO 1979 


1920 NEXT 


1939 PRINT:PRINT"UH?":GOTO 969 
1949." 
1959 οσο WHERE TO BRANCH AFTER DETERMINATION OF VERB eee 


| 1g6g " 


19070 ON A GOTO 1999,1139,1149,1219,1289,1379,1449,1519,1540,1569, 1599. 1609, 1619, 
1639,1679,1699,1799,1719,1729,1730,1749,1759 

1989 IF L-2 AND B(26)=1990 THEN 0B$(26)="REPAIRED LOCATER":B$(26)="*":B(26)=0 
1999 IF CSRLIN»29 THEN GOSUB 1929 


/L199 PRINT'"I AM CARRYING:" 


1119 FOR C-1 TO 29:1F B(C)-1909 THEN PRINT В9(0) 


/1129 NEXT:GOTO 969 


4139. Goto 739 


1140 IF LD»4 THEN PRINT" I'M’) CARRYING TOO MUCHI "i= GOTO; 969 


1150 FOR 0-l TO 28:IF LEFTS(WS,3)-LEFT$(BS(C),3) AND B(C)-L AND B$(C)«'*"THEN B 


(C)=1099:PRINT"I GOT THE ";B$(C);"!":LD-LD41:GOTO 969 


1169 NEXT 6 

1179 IF LEFT$(W$,2)-"SA"AND L-9 THEN PRINT"I GOT IT BUT I THINK IT WAS A | ..BIG 
166111: MISTAKE!";PRINT"IT'S EATING ME ALIVE!":FOR DL-1 TO 15:0UT &H38,DL419:NEXT 

{FOR DLe1 TO 299g:NEXT:PRINT"I'M DEAD. 2.00000. "SEND 


1189 IF LEFTS(W$,3)2"WAR"AND 1-6 AND ZW=1 THEN PRINT"I GOT ONE AND IT'S ONE UGLY 
SUCKER! I LET IT GO."::ZW-ZW41:GOTO 969 

1199 IF ZW=2 AND LEFT$(W$,3)-"WAR"AND L=6 THEN PRINT"YOU LEARN SLOW-DON'T YOU? I 
'M BEING GORED TO DEATH!":GOTO 969 

1209 PRINT"I CAN'T TAKE THAT!!":GOTO 969 

1219 FOR C=1 TO 28 

1229 IF NX=1 AND L-9 AND LEFT$(W$,2)-"SP"THEN NX-2:GOTO 1269 

1239 IF LEFTS(W$,3)-LEFTS(BS(C),3) AND B(C)=1999 THEN B(C)-L:PRINT"I DROPPED IT! 
"LLD-LD-1:GOTO 969 

1240 NEXT 

1259 PRINT"I DON'T HAVE THE ":W$:GOTO 969 

1269 PRINT"YOUR SIGN OF PEACE IS RECOGNIZED":L-11::FOR D=1 TO 119g NEXT:NX-2:T(2 
,9)211:G0T0. 736 


111279; GOTO 969 
1989 FOR C=1 TO 4:ΤΕ LEFT$(WS,2)-LEFT$(T$(C),2) THEN DR-C:GOTO 1399 


1299 NEXT C:GOTO 1369 
1399 IF T(DR,L)59 THEN L-T(DR,L):GOTO 1320 
1319 IF T(DR,L)-9 THEN PRINT"CAN'T GO THAT VAY!":GOTO 969 


1329 TF T(DR,L)=-1 THEN PRINT"A SLUGGISH RIVER -'*OCKS THAT WAY":GOTO 969 


1339 IF T(DR,L)--3 AND LEFT$(OB$(20),3)-"SAB" THEN 1820 

1349 IF T(DR,L)--2 THEN PRINT"A NEANDERTHAL CHIEF BRANDISHING A SPEAR BLOCKS YOU 
PATH!":NX-1:GOTO 969 

1358 GOTO 739 

1369 PRINT"USE A DIRECTION!":GOTO 966 

1379 IF 199 THEN 1389 ELSE IF L-9 AND LEFT$(W$,2)-"SA"AND B(18)<1999 OR B$(18) 

<"SPEAR"THEN PRINT"I WISH I HAD A SPEAR BUT I'LL GIVE IT A TRY":FOR DL=1 TO 399 
SNEXT:PRINT"I'M GOING TO BE A SNACK FOR THIS GUY!":PRINT"I'M DEAD.,":END 

1389 IF LEFTS(W$,2)5"BA"AND L-6 THEN PRINT'"THEY'RE TOO CUTE FOR THAT!":GOTO 969 
1399 IF LEFT$(W$,2)-"SA"AND L-9 AND B$(18)-"SPEAR"AND B(18)—1999 THEN PRINT"OK,. 
| HERE GOES!":PRINT"I GOT'EM....I GOT'EM...!":FOR SW=1 TO 39Q:NEXT:0BS$(20)-"DEAD 
SABRETOOTH":B$(29)-"DEAD SABRETOOTH":T(2,9)—-2:ELSE 1419 

14909 IF LEFTS(B$(29) ,3)="DEA"THEN P$(9)-"A RIDGE OVERLOOKING A BLOODY FIELD.":GO 
TO 969 


1419 ΙΕ ПЕЕТ (99,2) ="МА"АМр L-7 THEN PRINT'"NO WAY-FELLA! I MIGHT BE AN ADVENTURE 
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R BUT I'M NOT ‘NUTS: BEEP: GOTO 969 
1429 ΤΕ L=9 AND LEFT$(W$,2)-"CH" ΟΕ LEFT$(W$,3)—"NEA"THEN PRINT" YOUR) SPEAR PIERC 
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ES HIS CHEST! HE DIES-":FOR DL-1 TO 499:NEXT:PRINT"AND SO DO YOU. THIS MAN WAS Y 

OUR DIRECT ANCESTER!":BEEP:END 

1439 PRINT"DON'T BE RIDICULOUS!":GOTO 969 

1449 IF LEFT$(0B$(29),3)<>"DEA"THEN 1450 ELSE IF М=1 AND LEFT$(W$,3)-"STE" OR LE 

FT$(W$,3)-"ANT"AND L=9 AND LEFT$(0B$(29),3)-"DEA"THEN PRINT"DELICIOUS! I REALLY 

NEED THAT PROTEIN.":S=199:0B$(21)="ANTELOPE BONES":B$(21)-'"*":M-2:GOTO 969 

1459 IF M=1 AND LEFT$(W$,3)-"STE" AND L-9 AND LEFT$(0B$(29),2)-"SA" THEN PRINT"T 

RY TO TAKE A SABRETOOTH'S DIN-DIN? ΝΟ WAY..PAL!":FOR DL-1 TO 80g:NEXT:GOTO 969 
1469 IF L=4 AND LEFT$(W$,2)-"BE"THEN PRINT"NOT BAD "::FOR DL-1 TO 699:NEXT 
:PRINT"KIND OF MAKES YOU WONDER WHY NO ANIMALS ARE EATING THEM!":FOR SW=1 TO 999 
:NEXT:PRINT"I'M POISONED!!!!":FOR DL-1 TO 39g:NEXT:END 

1479 IF LEFT$(W$,2)-"FR"AND B(14)=1999 THEN PRINT"BABOONS KNOW WHAT PLANTS TO EA 

T.THESE ARE GREAT!":S=S+19:0B$(14)="STRIPPED FRUIT TREES ALONG THE  BANK.BABOONS 
SIT LAZILY SUNNING THEMSELVES":B$(14)-"SEEDS & PITS":B(14)-6:LD-LD-1:GOTO 96g 
1489 IF L=6 AND LEFT$(W$,2)-"FR"AND B(14)-6 THEN PRINT"I CAN'T NOW!":GOTO 969 
1499 IF 1=9 AND M-2 AND LEFT$(W$,3)-"STE"THEN PRINT"NOTHING LEFT THERE BUT VULTU 

RES PICKING THE SKELETON!":S-$-5:T(2,9)--2:GOTO 969 

1599 PRINT"I'M NOT EATING THAT!":GOTO 969 

1519 IF B(2)-19gg AND WT=1 AND LEFT$(W$,2)-"WA"OR LEFT$(W$,2)-"CA"THEN S=S+29:PR 
INT"AHH!  REFRESHING!":WT-9:0B$(2)-"DRAINED CANTEEN":LD-LD-1:0(2)-L:GOTO 969 
1520 IF LEFT$(W$,2)-"WA"AND WT=1 AND B(2)<>1999 THEN PRINT"I DON'T HAVE A CANTEE 

N!":GOTO 969 

1539 PRINT"THAT'S OUT OF THE QUESTION!":GOTO 969 

1549 IF L-6 OR L-3 THEN CLS:PRINT"OK.I'M A GOOD SWIMMER,BUT I'M NOT SURE SWIMM 
ING IN AN UNKNOWN RIVER IS SMART."::FOR D-1 TO 1699:NEXT:PRINT"SOMETIMES THERE A 
RE CROCS IN THERIV..BLUB..BLUB..BLUB..!":END 

1550 PRINT"I CAN'T SWIM THAT!":GOTO 969 

1560 IF B(11)=1999 AND B(18)=1999 AND LEFTS$(W$,3)-"SPE"THEN PRINT"I'VE СОТ A GOO 
D WEAPON NOW!":B(11)=9:B$(18)="SPEAR":B(18)=1999:FOR DL-1 TO 699:NEXT: :B$(11)="* 
":LD-LD-1:GOTO 739 

1579 PRINT"I CAN'T MAKE A ";W$ 

1589 GOTO 966 

1599 PRINT"IF I TRIED TO BUILD THAT I WOULD PROBABLY ATTRACT THE WRONG KIND OF A 
TTENTION!":GOTO 969 

1699 PRINT"THIS IS A MACHO ADVENTURE ":FOR DL=1 TO 59@:NEXT: PRINT" EAT 
IT 'RAW'":GOTO 969 

1619 IF B(5)=1999 AND LEFT$(B$(18),2)-"SP"AND B(18)=1999 AND LEFT$(W$,2)-"FL'"AND 
L=19 THEN PRINT"A CAVE BEAR IS BLINDED BY THE LIGHT....JUST LONG ENOUGH FOR Y 
OU TO RUSH IN AND STAB IT. YOU TAKE THE HEAD AS A TROPHY":BK-1:S-9415:GOTO 9 
6g 

1629 PRINT"I CAN'T LIGHT A ";W$:GOTO 969 

1639 IF L-3 THEN 1649 ELSE IF L=6 AND W$-"LOG"OR W$-"BOAT"THEN PRINT"YOU FLOAT A 
CROSS THE RIVER. THE CROCODILES ARE UPSET THAT YOU DIDN'T SWIM!":L=3:B(13)=3:GOT 
0 1669 

1649 IF 1<>3 THEN 1659 ELSE IF L-3 AND W$-"LOG"OR W$-"BOAT"THEN PRINT"YOU FLOAT 

ACROSS THE RIVER.":L=6:B(13)=6:GOTO 1669 

1650 PRINT"YOU CAN'T FLOAT A ";W$:GOTO 969 

1669 FOR DL-1 TO 19gg:NEXT:GOTO 739 

1679 IF L=6 AND B(2)=1999 AND LEFT$(W$,2)-"CA"THEN WT-1:B(2)-6:0B$(2)-"FULL CANT 

EEN" : B$(2)="CANTEEN": PRINT"I FILLED IT...."::GOTO 969 

1689 PRINT"THAT'S SILLY!":GOTO 969 

1699 PRINT"HELP - YOU SAY!....IT WASN'T MY IDEA TO COME HERE IN THE FIRST PLACE 
!111":GOTO 969 

1799 PRINT"SISSY!":GOTO 969 

1719 PRINT"HELLOOOO0000....... !":BEEP:GOTO 969 

1729 PRINT"I SAID '";W$;"'":PRINT"BUT NOTHING HAPPENED!":GOTO 969 

1739 PRINT"I HEAR THE BIRDS SINGING IN THE TREES. BIG DEAL!":GOTO 969 

1746 PRINT"SORRY, I'VE JUST HAD A HERNIA OPERATION!":GOTO 969 

1759 IF LEFT$(W$,2)="SK"AND B(27)-1999 THEN PRINT"I SURE LOOK SILLY IN THIS LITT 
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The Динге is power 
...and affordability. 




















affordable alternative to the 

IBM? PC/AT. Here's the power 
you need to manage your business, to 
network computers, or to create a 
multiuser system. 


Г the Tandy 3000, the 


Unmatched compatibility 

The Tandy 3000 uses the advanced 
MS-DOS 3.1 operating system. And 
since the Tandy 3000 is compatible 
with programs designed for the PC/ 
AT, as well as the PC/XT, it cuts 
through today's software confusion. 
Choose from advanced word- 
processing packages, database man- 
agement and powerful accounting 
software. 


Power to share 

The Tandy 3000 is also designed to 
use the forthcoming XENIX 5.0 mul- 
tiuser operating system. Two to six 
people in an office can use the 3000 
simultaneously with low-cost data 
display terminals. 


In offices already equipped with 
MS-DOS computers, the Tandy 3000 
is the link that brings them all to- 
gether. Using our ViaNet local area 
network, the Tandy 3000's high 
speed is available to all network 
users. The Tandy 3000 is your afford- 
able solution for office automation. 


Designed for High 
Performance 


The Tandy 3000 
comes with an 80286 
microprocessor for the 
ultimate in speed and 
performance. Its 16-bit 
architecture operates 
at 8 megahertz—twice 
that of the industry 
standard. 


The Tandy 3000 comes with one- 
half megabyte of main memory 
(512K RAM). This memory can be 
expanded to 640K without using an 
expansion slot. Total internal memory 


can exceed an astounding 12 mega- 
bytes (under XENIX). 


As for storage, the Tandy 3000 
(25-4001, $2599) is equipped with a 
high-capacity, 5'/4” slim-line floppy 
disk drive. For the utmost in compat- 
ibility, this drive can read 1.2-meg 
and 360K formats for use with any 
IBM PC diskettes. 


For maximum storage capacity, 
choose the Tandy 3000 HD (25-4010, 
$3599) with a built-in 20-megabyte 
hard disk drive for fast access to vol- 
umes of data. 

Both versions of the Tandy 3000 
feature a built-in real-time clock for 
time-sensitive applications and a 
serial/parallel interface. 


The Tandy 3000 has ten expansion 
slots, including seven IBM PC/AT- 
compatible slots, two PC/XT- 
compatible slots and a PC/XT- 
compatible half-slot for the serial/ 
parallel interface board. 


Tandy...Clearly Superior™ 

High performance, compatibility, 
multiuser and networking capabili- 
ties, and remarkable expandability: 
the Tandy 3000 has the power to 
put you in command. 


Available at over 1200 
Radio Shack Computer Centers and at 
participating Radio Shack stores and dealers. 


Radie Лаек 


COMPUTER CENTERS 


A DIVISION OF TANDY CORPORATION 


QE πα жщ X из X€* л DW кү 
* Send те a Tandy 3000 brochure. = 
ЕЯ 


w 
A Dept. 86-A-993, 300 One Tandy Center =" 
Fort Worth, Texas 76102 


" W 
X Name M 
* Сотрапу k` 
E eX 
κ... Address P 
з City x 
* z 5 
А State ip A 
* Phone a 


Prices apply at Radio Shack Computer Centers and at participating stores and dealers. MS-DOS and monitor sold separately. 
IBM/Registered TM International Business Machines Corp. MS and XENIX/TM Microsoft Corp. ViaNet/TM ΝΙΑΝΕΤΙΧ. 
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LE SQUIRREL SKIN":LD-LD-1:FOR DL-1 TO 69%:NEXT:B(27)=9:GOTO 966 

1760 IF LEFT$(W$,2)-"SK"AND B(27)<>1999 THEN PRINT"I DON'T HAVE THE SKIN":GOTO 9 
6g 

1776 PRINT"WEAR WHAT????...NO WAY!":GOTO 969 

1789 FOR DL-1 TO 1299:NEXT:CLS:PRINT:PRINT"YOU QUICKLY MAKE A GUNPOWDER MIXWITH 
THE CHEMICALS YOU HAVE GATHERED. YOU USE IT TO BLAST AWAY THE ROCK DEBRIS. AFT 
ER YOU INSTALL THE DILATION CONTROL" 

1799 PRINT"THE TEAM OF RESEARCHERS IN THE 21ST CENTURY THEN LOCATE AND RESCUE YO 
Ui YOU HAVE SURVIVED 'THE LAND OF THE CAVE BEAR'" 

1800 PRINT"THE  END";:END 

1819 PRINT"YOUR STRENGTH DROPPED TO NOTHING AND YOU HAVE DIED!":PRINT"SUCH IS TH 
E END OF A CARELESS ADVENTURER!":END 

1829 PRINT:PRINT"YIPE!! A SABRETOOTH LION....":FOR DL-1 TO 15909:NEXT:PRINT"NEVER 
GO UPWIND OF A LIVE SABRETOOTH LION!":PRINT:FOR DL-1 TO 15909:NEXT:PRINT"HE OBVI 
OUSLY FOLLOWED YOU FROM THE SITE OF HIS KILL." 

1830 FOR DL-1 TO 1599:NEXT::PRINT"HE POUNCES!!!1!!!!!]!!1!11!1!1!11!11!111 1": FOR DL-1 TO 1 
999 : МЕХТ:РКІМТ"МОМ YOU ARE HIS MAIN COURSE ":PRINT"THE END!" 

184g END 

1850 INPUT"WANNA GO FARTHER IN";AN$ 

1869 IF LEFT$(AN$,1)="Y"THEN 1876 ELSE 1889 

1879 IF B(5)=199% THEN CI-2:GOTO 969 ELSE IF B(5)-1999 THEN PRINT"I CAN'T SEE I 
N THE DARK!":FOR DL-1 TO 199%:PRINT"A CAVE BEAR HAS ME IN IT'S ARMS!IT'S ALL OVE 

BE MORE CAREFUL WITH YOUR NEXT HAPLESS  ADVENTURER!":END 

188g PRINT"WHEW!!! I WAS AFRAID YOU MIGHT TRY IT!":CI=2:L=19:FOR DL-1 TO 1999:N 
EXT::GOTO 739 

1899 ' 

1999 "σος WIPE SCREEN CLEAN [LEAVE STRENGTH LEVEL] усуе 

1910 ' 

1920 FOR WIPE-4 TO 24:LOCATE WIPE,1:PRINT STRING$(89," ");:NEXT:LOCATE 25,1:PRIN 
T STRING$(79," ");:COLOR 6,9:LOCATE 25,29:PRINT"The Land of the CAVE BEAR! 

by L. Hyre";:COLOR 2,0:100ΑΤΕ 4,1:RETURN 

1939 ' 

1940 "есес INITIAL TITLE SCREEN жэс 

1959 ' 

1969 CLEAR ,,,(32768!) 

1979 KEY OFF:SCREEN 5,1:LOCATE 1,1,9:CLS 

198g LINE(2,62)-(319,136),8,B:PAINT(2,62),8,8 

1999 LINE(9,136)-(319,149),6,BF 

2000 DRAW"BM1,135;C19R318u513h314L7H2L12H1G3H3L16H4L3G3L24G7H5L15H2F3H3L13H14L20 
Gl6L5G3H6L12G2H2L3G3H4L8G2L2G2L2H2L5G3H4L9G3L3H2L15G3H2L5G5L9G1L5H2L5D7" 

2010 PAINT(2,133),2,19 

2626 CIRCLE(4%,75) ,8,14:PAINT(49,75) ,14,14:CIRCLE(199,75),3,15,,,.5:CIRCLE(194,7 
8),4,15,,,.8:CIRCLE(199,74),8,15,,,.35:CIRCLE(115,76),7,15,, , . 4: PAINT(190,75),15 
,15:PAINT(116,77),15,15 

2939 CIRCLE(249,89),4,15,,,.5:CIRCLE(244,83),4,15,,,.8:CIRCLE(259,78),8,15,,,.35 
: CIRCLE(255,82),7,15,,,.4:PAINT(249,89) ,15,15:PAINT(255,82) ,15,15:PAINT(259,78), 
8,15 

2949 LOCATE 3,16:COLOR 4:PRINT"Land Of The": LOCATE 5,13:COLOR 14:PRINT"C A V E 
BEAR" 

2050 COLOR 15:LOCATE 21,16:PRINT"by L.Hyre 

2060 COLOR 2:LOCATE 23,1:PRINT"Press ENTER to Begin 

2979 LINE(59,19)-(275,44),14,B, &H5555 

2989 AKS-INKEY$ 

2999 DRAW"BM199 ,89;C14G5R4G6R4G5" 

219g IF INT(RND(9)*9)<7 THEN 2139 

2119 OUT &H61,&H6C:OUT &HCf,&HEQ-«1*449 

2129 FOR I-1 TO 15:0UT &HC,&HF-I:NEXT I 

2139 DRAW"bm199,89;c8g5r4g6r4g5" 

2149 IF INT(RND(9)*9)«6 AND AKS=""THEN 2989 
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2150 DRAW"BM245,85;C14G8R5G8R3G8":DRAW"BM250,85; CLAF6L7F9L5F8RA4G8" 

2160 OUT &H61,&H6C:OUT &HCY, &HEG+1*4+9 

2179 FOR I=1 TO 15:0UT &HCØ,&HFØ+I:NEXT I 

2189 DRAW"BM245,85;C8G8R5G8R3G8":DRAW"BM250,85; CB8F6L7F9L5F8RAG8" 

2199 FOR X-1 TO 1999:NEXT 

2299 IF AK$-""THEN 2989 

2219 "οσο THE SCENARIO SCREEN Жу 

2220 KEY OFF:SCREEN 9,1:COLOR g,2:WIDTH 89:CLS 

2239 LOCATE 1,1:PRINT"The SCENARIO" 

2249 LOCATE 3,1:PRINT"Year 2999...." 

2259 LOCATE 7,1:PRINT"I awake....Where am I?...Now, it begins to come back. I wa 
s out backpacking in the New Mexico desert when I chanced upon a strange machin 
e. I approached it cautiously. On the side, an inscription read...." 

2260 LOCATE 11,25:PRINT"NASA Time Shuttle EXPERIMENTAL":LOCATE 12,37:PRINT"DANGE 
R" 

2270 LOCATE 14,1:PRINT"Suddenly, it began to make strange noises!" 

2289 LOCATE 15,1:PRINT"HUM..HUMM...HUMMM.... 

2299 LOCATE 16,1:PRINT"I tried to get away. Too late! Things are spinning and fa 
ding to black! 

230 LOCATE 17,1:COLOR 9,9:PRINT STRING$(89," ");" BUT...Why do I have a vision 
of 'Strange Hairy Men' carrying away something ?  ";:COLOR 9,2 

2316 LOCATE 19,1:PRINT STRING$(89," "); 

2326 LOCATE 29,29:PRINT" [MEANWHILE....BACK AT NASA HEADQUARTERS! ] 

2336 LOCATE 21,1:PRINT"The TIME/CONTROL team tries desperately for a TIME-DILATI 
ON Fix on the hapless and unsuspecting traveler. It is his only hope!" 

2349 LOCATE 24,1:PRINT"PRESS ANY KEY to plunge into time!"; 

2359 " 

2369 "ΚΙΝΑ SHOW THE REAL TIME GAUGE "eek 

2379 ' 

2389 AKS$-INKEY$:IF AK$-""THEN 2389 ELSE COLOR 2,9:CLS 


2399 WIDTH 49:COLOR 7,9:LOCATE 6,7:PRINT"Real Time Distortion Guage"; 
2499 FOR DG=2999 TO (-48999!) STEP-2599 
2419 LOCATE 4,17:PRINT DG; 
2429 FOR DL-1 TO 299:NEXT 
2439 NEXT DG 
2449 LOCATE 4,12:COLOR 4:PRINT"59999 yrs. BC"; 
FOR DL-1 TO 3999:NEXT:RUN 149 
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t’s axiomatic — no matter how much тей 
portable has, there's never enough to carry at 
the information you need. 

Sardine is a Model 100 utility program which 
alleviate the problem. It works on systems of 8K an 
It's a BASIC program which packs other BASIC programs in 
less space. A program compressed by Sardine stores 1 
about 25 percent less memory space than its unpacke 
version. More text and BASIC file material can be carried 
in the system. Also, packed programs run about six percent 
faster than unpacked versions. 

A packer program like Sardine is especially worthy for 
a portable computer where memory is at a premium. 

This utility works by removing spaces where legal, 
eliminating the second through last REM comments, and 
combining lines where permitted by program logic. Once 
set into motion, it does all these things automatically. 

There are two ways to use Sardine. One reads an in- 
memory file and creates a new in-memory version. The 
other reads the in-memory file and sends the new version 
to cassette. Available memory determines which you should 
use, and I'll cover this later. 

Let's learn how to make Sardine work. Start by typing 
the listing for Sardine and saving it on cassette tape as a 
file named SARD.BA. Save it in memory under the same 
name. 

We will first convert one in-memory file to another in- 
memory packed version. 


Richard Ramella is a former newspaper editor who 
now works as a writer for a California hospital. He 
has published more than 200 computer programs. 
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Ramella 


in command να th 
ER. This makes a dou ble 
a text file and rena 
RUN “SARD” and pres: 
2) Text file?. Press 


BASIC file w! 

file OLD.DO 

wiped out PACK. 
Sending a new 

different steps. 


When SARD.BA and OLD.DO are sa 


uld be saved on tape. 
SAVE “OLD.DO” and 


A prompt asks 
ENTER key. 
¿s appears on 


put a fresh tape in the tape recorder, 


RECORD buttons together. 


Run SARD.BA and answer the begi 


1, so it will pack the file onto the ta 
has run, rewind the tape to the start ¢ 
the PLAY button on the recorder. 
mode. Put the cursor over the wor 





Type PRCK and press ENTER. Press F2. Answer the Load 
from: prompt by typing PRCK and pressing ENTER. When 
the material has loaded into the text file, press F8 to go to 
menu mode, then press ENTER to go to command mode. 
Type RUN “PACK” and press ENTER. As before, break into 
the run, type KILL ^PRCK.DO^ and ENTER, then save the 
program as a BASIC listing, naming it at this point. 

These two methods of using Sardine are given for the sake 
of efficiency, ease and avoiding memory mistakes. 

In general, a file-to-file conversion requires the system 
have free bytes equal to about 85 percent of the bytes used 
to store the text file of the program to be converted, because 
a new slightly smaller file is created within the computer. 
In the file-to-cassette method, the in-memory file can use 
all but about 1,800 bytes of memory. 
| Тһе following table conservatively estimates the largest 
number of bytes a conversion program may occupy in 
computers with different memories: 


To To 
Cassette Text 
System File File 
8K 2,594 1,297 
16K 10,786 5,393 
24K 18,978 9.489 
32K 21,270 13,585 


Exceeding these limits may produce an ОМ (out of 
memory) error message. 


DCA CAR CODI 
| ВАВ CODED LISTING | 
|ECM, н ЛШ 


If you run Sardine and get an OS (out of string) error 
message, the program has failed to handle the large amount 
of string material generated in converting a very long 
program. To try again, increase the CLEAR 1600 in Line 110 
to a higher number. This error is improbable, but since 
there's a scintilla of possibility, you should know the cure. 

Do not edit a program to be shortened while it is in text 
file form. 

If you wish REM to be retained, use the symbol apostrophe 
(^) rather than REM. 

The program will give incorrect results if you use the 
capital letters REM in a string. It will cut off all following 
material in that line. 

Do not use open-ended quotes in the program to be 
shortened. If you do, material on the next line may be added 
as part of the quote, with incorrect results. 

I've tested Sardine on numerous programs with good 
results. The test programs included Tandy software, listings 
from magazines and my own work. However, I can't give 
an ironclad guarantee Sardine will work universally. There 
are so many programming techniques and possible anom- 
alies, it seems quite possible that somewhere there is a 
program that will stymie Sardine. In fact, I have found one 
— Sardine itself. It cannot be used to pack a version of itself, 
because the characters REM exist within quotes. 

If anyone discovers other situations which thwart 
Sardine, a letter would be appreciated. Write to 1493 
Moutain View Avenue, Chico, CA 95926. If you need a 
response, please include an SASE. D 


n y SQ ο... 
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LIST OUR 
COLOR COMPUTERS PRICE 


26-3127 64K Extended Color Computer 2 . $199.95 $169.00 





































































26-3134 16K Standard Color Computer 2.. 119.95 CALL 

26-3131 Thinline Disk Drive 0 for Color Computer 299.95 240.00 

26-3018 Extended Basic Kit ............ 39.95 36.00 

26-3030 OS-9 With Editor Assembler ..... 69.95 59.50 1 -800-248-3823 

26-3012 Deluxe Jovstick ............... 29.95 25.00 — 
26-1208 CCR-81 Recorder ............. 59.95 50.00 OUR 
30001170 VIP Integrated Library......... 149.95 139.00 RADIO SHACK PRINTERS PRICE 
πο ыар S гу he ii he gl ν et emcee 26-1276 DMP-105 Dot Matrix Printer ..... $ 199.00 $ 169.00 
30001210 Telewriter 64 Таре ........... 49:95 42:00 26-1275 TRP-100 Portable Thermal Printer. 299.00 230.00 
30001220 Telewriter 64 Disk ............ 59.95 


26-1280 DMP-130 100 cps Triple Mode Printer 349.95 285.00 
26-1268 CGP-220 Color Ink-Jet Printer ... 699.00 595.00 
26-2830 PC-695 8-Color Digital Plotter .... 799.00 680.00 
26-1277 DMP-430 24 Wire Matrix Printer .. 899.00 635.00 


30009110 Botak Interface -.....:.:...:.::..:.. 
TANDY 3000 














25-4001 Tandy 3000 One Disk 512K ..... $2599.00 $1900.00 26-1270 DWP-510 43 cps Daisy Wheel ... 1495.00 1225.00 
25-4010 Tandy 3000 One Disk & 20 Meg HD512K 3599.00 2600.00 26-1274 DMP-2100P 24 Dot Matrix Printer. 1495.00 1195.00 
25-3046 Deluxe Text Display Adapter .... . 249.95 205.00 26-1279 DMP-2200 HiSpeed Matrix Printer. 1695.00 1440.00 


26-3047 Deluxe Graphics Display Adapter . 499.95 395.00 
25-4030 512K to 2 Meg Expansion Board . 499.00 395.00 
25-4033 Math Co-Processor for 3000 ..... 399.95 339.00 
25-4050 1.2 Meg Disk Drive Kit for 3000 .. 299.95 255.00 
25-4060 Hard Disk Controller Board for 3000 499.00 425.00 


26-1269 PT-64 Printer Controller......... 210.00 
26-1498 SW-302 Printer Switch ......... 100.00 
26-1447 Bi-Directional Tractor for DWP 510 219.95 186.95 


TANDY 1200, 2000 
































25-4062 20 Meg Hard Disk Kit .......... 799.00 679.00 : 
νετ 
tres ⁄ 165.00 25-3010 VM-3 Green Monitor ........... 219.95 185.00 
ешш. .95 510.00 25-1022 CM-10 Color Monitor ........... 459.95 380.00 
25-3043 Graphics Display Adapter ....... 299.00 185.00 
2 ον Ша, 695.95 540.00 
26-3901 Tandy 600 Port Comp 32K 32 DD $1599.00 $1195.00 ae τ μμ ον Board ..... 599.95 475.00 
ο PASIE Por ror TANGY ο ή. P EAR UM 25-3020 TCS-100 Tape Cartridge System . 1999.00 1555.00 
26-3910 92K RAM Upgrade for Tandy G00:..) 399.95. 910.00 25-3021 TCS-100 Interface Kit 1000/1200 . 149.95 120.00 
26-3860 Tandy 200 Port Comp 24K ...... 799.00 650.00 25.3130 MSDOS/BASIC ............... 89.95 76.50 
eene Manda Н ы ae ο anc precii E ο 26-5103 Tandy 2000 Two Disk .......... 1599.00 1225.00 
26-3802 Tandy 100 Port Comp 24K ...... 499.00 a $ ; 
aae o BK UM parada ie Tad ЧУ ар АО 26-5104 Tandy 2000 One Disk & 10 Meg HD 2499.00 1885.00 
26-3808 Port 3% Disk Drive for T100 T200. 199.95 169.00 TANDY 1000 
26-3815 Portable Disk Case ............ 2495 2100 25-1000 Model 1000 128K 1 FD & DeskMate $ 999.95 $ 705.00 
26-3805 Acoustic Coupler .............. 3995 34.00 25-1001 Model 1000 256K 1 FD 10 Meg HD 199900 1475.00 
26-1409 Printer Cable ................. 1495 12.70 25-1003 300-Baud Modem Board 1000/1200 149.95 125.00 
26-1410 Modem Cable ................ 25-1005 Disk Drive Expansion 1000 ...... 199.95 170.00 
25-1006 RS-232C Interface 1000/1200 .... 9995 85.00 
MODEL 4D 25-1013 1200-Baud Modem Board 1000/1200 299.95 230.00 
25-1025 10 Meg Hard Disk Drive ........ 699.95 559.00 
26-1070 Model 4D 64K 2 FD w/DeskMate .$1199.00 $895.00 25-1007 Hard Disk Control Board ........ 299.95 255.00 
26-1122 64K Memory Expansion ........ 69.95 65.00 25-1021 CM-4 Color Monitor ............ 299.95 225.00 
26-1123 Model 3 to Model 4 Upgrade Kit .. 399.00 385.00 25-1022 CM-10 Color Monitor ........... 459.95 38000 
26-1134 Model 4 HD Kit for 15 Meg ...... 79.95 67.95 26-3211 VM-2 Monochrome Monitor ...... 149.95 125.00 
26-1530 Multiplan Model 4 ............. 199.00 169.00 30051030 PJB Multifunction Board 512K ......... 310.00 
26-1595 Super Scripsit Model 4 ......... 199.95 169.00 


26-1608 DeskMate for Model 4 .......... j i EPSON PRINTERS 


























κ 20001015 Homewriter 10............... $288.00 $215.00 
ИЭ 20001025 LX-80 Dot Matrix Printer ....... 299.00 225.00 

20001035 FX-85 Dot Matrix Printer ....... 499.00 345.00 

20001050 НІ-80 4 Pin Plotter ........... 599.00 390.00 

MODEL 6000 COMPUTERS 20002010 RX-100 Dot Matrix Printer ..... 499.00 400.00 
26-6021 Model 6000 512K 2 FD Comp . . .$4499.00 $3125.00 MT CERE Dat MEC d πο OR 


26-6022 Model 6000 512K 1 FD 15 Мед НО. 5499.00 3795.00 20003020 LQ-800 24 Pin Head Dot Matrix. 799.00 565.00 





26-6019 Model! 6000 256K Memory Kit.... 199.95 185.00 20003030 LQ-1000 24 Pin Head Dot Matrix. 995.00 695.00 
26-6052 DT-100 Data Terminal .......... 795.00 600.00 10081010 DX-10 Daisy Wheel Printer ey 299.00 255.00 
26-1245 10 Meg Disk Cartridge System ... 2195.00 1750.00 10081020 DX-20 Daisy Wheel Printer eA le 459.00 390.00 
26-6018 6000 Interface Kit for 26-1245 .... 119.95 102.00 10081030 DX-35 Daisy Wheel Printer . . .. . 899.00 765.00 
25-3022 1000/1200/3000/Interface Kitfor26-1245 199.95 160.00 
26-4155 15 Meg Hard Drive Primary ...... 1595.00 1355.00 
26-4171 35 Meg Hard Drive Primary ...... 2995.00 2545.00 For Technical Questions and Information on our complete line of 
26-4173 70 Meg Hard Drive Primary ...... 4295.00 3350.00 


computer accessories and current prices: 


CALL 1-517-625-4161 


26-4157 Installation Kit for Primary HD .... 349.00 295.00 





All prices and offers may be changed or withdrawn without notice. Advertised 


ined i rael) proes: Vin om ws ($10.00 charge per carton on C.O.D. FOR ORDERS ONLY CALL 1-800-248-3823 
all for further C.O.D. information.) M.C., Visa, add 2%. AX, add 3%. All - 1 
defective items returned will be subject to 1096 restocking fee. Defective Mon., Wed. & Fri. 9-9, Tues. & Thurs. 9-6, Sat. 9-3 


items require return merchandise authorization. Call for R.M.A. Number 


before returning. Delivery is subject to product availability. 124 6. mAIN ST, PERRY, MICH. 48872 





Integrated Desk 


Desk Mate’s help screens are nice, but 
they don't often go far enough. This 
month, Bobby shows you how to get 
more out of them 
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More Help! 





By Bobby Ballard 


you've taken a look at the help 
If included with Desk Mate, 

you've probably noticed the 
lack of in-depth help they provide. I'm 
going to show you how to make more 
of the help files in Desk Mate by creating 
and editing your own files. In addition, 
you will be able to use the following 
information to add to the help files as 
we cover some of the more obscure 
aspects of Desk Mate each month in the 
Integrated Desk. As you learn more 
about Desk Mate, just use the following 
techniques to insert your notes right 
into your help files for easy future 
reference. 

While we are going through the pro- 
cess of creating and editing your own 
help files, I will explain the use of 
EDLIN; the MS-DOS line editor found 
on your master MS-DOS diskette. So, 
if you haven't taken the opportunity to 
learn EDLIN techniques yet, this is it. 
Unless you bought the MS-DOS refer- 
ence manual, you might have some 
unanswered questions concerning 
ΕΡι IN and how to use it to the fullest. 

On first glance, I thought that I would 
be able to edit the help files using the 
Text section of Desk Mate and editing 
the help files would be one very simple 
process. I found this to be impossible 


Bobby Ballard is a free-lance writer and 
the owner of a computer software and 
consulting firm. He also operates a BBS 
in Brooklyn. Bobby can be contacted at 
1207 Eighth Avenue, Apt. 4R, Brook- 
lyn, NY 11215. 


because of the way the Text section 
saves its data. Desk Mate’s Text section 
uses a non-standard format for storing 
its data that makes it incompatible with 
the way Desk Mate reads its help files 
from the diskette. While the Text sec- 
tion can read MS-DOS text files, it 
saves them with a different format that 
changes the carriage returns and line 
feeds. 

The process of creating your own 
personalized help files is still very simple 
using the EDLIN editor of MS-DOS. 
First, let me point out that you should 
use a backup copy of Desk Mate for this 
exercise. If you run into any problems 
you won't destroy valuable files and 
information on your original or work- 
ing copies. After you are finished edit- 
ing, you may copy your new help files 
to your working copy and delete the old 
help files. You might even want to create 
and keep a separate disk or directory for 
your original and modified help files for 
future use. 


The Basics 

If you've been using DeskMate for 
any length of time, you probably know 
that the Text section can't recognize a 
text file unless the filename ends with 
.DOC as the extension. The same is true 
for the way Desk Mate recognizes help 
files. Their filenames must end with 
.HLP as the extension. If you rename 
any of the Desk Mate help files with the 
extension .DOC, they will show up in the 
Text section menu and you may read or 





print these files as any other text file. 
However, if you save any of these files 
back to diskette and rename them again 
using the .HLP extension, Desk Mate 
will not be able to read the help file 
properly. The edited help files will write 
only to the top line of the screen, 
overwriting each previous line. 

If you do a DIR command from MS- 
DOS on your Desk Mate diskette, you 
will notice that there are nine help files 
that match the nine main sections of 
Desk Mate. Look at Table 1 for a list of 
the help files and the corresponding 
section of Desk Mate related to each file. 
Each of these files can be deleted, edited 
or increased. 

To delete a help file while in Desk- 
Mate's main menu, just press F9 and 
respond to the prompt at the bottom of 
the screen with the name of the help file 
you wish to delete. To edit or add 
information to one of the help files, read 
on. 


Output Control 

The method Desk Mate uses to keep 
track of the help files while printing 
them to your screen involves the use of 
certain characters that pause output or 
signal the end of the file. While using a 
help file, you are given the option of 
pressing ENTER or F12 at the end of each 
screen. Note here that ΕΙ2 is for the 
Tandy 1000 version of Desk Mate and 
might be a different key on your system 
or version of DeskMate. By pressing 
ENTER, you continue to the next screen 
of information, providing there is one. 
Pressing F12 will take you back to the 
section you were in previous to invoking 
the help file. 

When Desk Mate finds a vertical line 
character (|), it pauses output and waits 
for a keystroke (either ENTER or F12). A 
backslash (*) tells Desk Mate that it has 
reached the end of the help file and 
either ENTER or ΕΙ2 will take you back 
to the section from which you called the 
help file. Anytime Desk Mate finds 
either of these two characters in a line 
in a help file causes the above actions 
to be taken. 

Now that you know how Desk Mate 
controls help file output, you can create 
your own help files, including the 
number of screens, the content and the 
end of the file. 


Editing 

As I mentioned earlier, you can create 
or edit your help files using the line 
editor supplied on your MS-DOS 
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Do You Want A Real Warranty... 


will you settle for a vague promise? 


Si 1977, we have operated a Radio Shack Authorized Sales Center (ASC), in the city 
of Grapevine, Texas. This will be significant for you only if (a) you want a warranty 
which you can exercise easily, if necessary and (b) the reassurance of our long term stability 
ind business ethics. 


Nhen you buy a Tandy/Radio Shack product from us the Tandy/Radio Shack Warranty will 
iccompany it and the warranty and service will be available to you, anywhere in the U.S. 


Ne will not install any foreign parts which might, and probably will, have an adverse affect 
ipon your warranty. We will assist you in obtaining local support, should you experience 
lifficulty, and will make an offer to buy-our-product-back* (hardware)if it dissatisfies you, 
vithin ЗО days. 
We ship fast," has always been our motto and if anyone is offering you a lower price, we 
uggest you ask about the foreign parts (and warranty) before closing the deal. We will 
NOT meet-or-beat”’ a lower price so you can be sure you have our best quote the first time, 
nd our toll-free phone lines (outside Texas) make the quote easy for you to get, from 9 a.m.- 
p.m. central time, Monday thru Friday. (*For a small handling charge) 


------ TOLL FREE 1-800-433-SALE 


326 Main St. Grapevine, Texas 76051 


TEXAS BUYERS ADD 5%% SALES TAX 





diskette. However, you might be able to 
edit your help files using another word 
processor or editor that saves files in the 
standard MS-DOS format. If you have 
another word processor or editor avail- 
able, try it and see if it works for you. 

To test your word processor or editor, 
load one of the help files into the editor 
and re-save it under a different name. 
Then, from the MS-DOS command 
level, use the TYPE command to take a 
look at your saved file. If the file 
appears on the screen with line feeds in 
the correct places and you can read the 
data as text, your word processor or 
editor might just work. Some word 
processors have the ability to save text 
either in MS-DOS format or in its own 
specialized format. 

If you think your word processor or 
editor might work, rename the edited 
file to its original name and make sure 
you keep the original help file under a 
different name in case something fails. 
Now start up Desk Mate, enter the 
appropriate section and press ALT-1 to 
invoke the help file. If everything goes 
well, you should see your new help file 
on screen with pauses at each location 
you included a verticle line (|) and end 
where you placed the backslash (*) 
character. 


EDLIN 

If you don't have an alternative way 
of editing MS-DOS files, you can use 
EDLIN to do your help file editing. To 
use EDLIN, just type EDLIN followed by 
the name of the file you wish to edit and 
press ENTER. For example, to edit the 
TWME NU.HLP file, type EDLIN TWME 
NU.HLP and press ENTER. You must 
make sure that the file you wish to edit 
is on the same diskette as EDLIN or on 
a diskette in another drive or on your 
hard disk drive. 

Once the line editor and file are 
loaded you will see a message explain- 
ing that the end of file has been reached. 
Now you may begin editing the help file 
to include any information you desire. 
You might want to delete some of the 
help file and replace the information 
with more specific information. In 
addition, you can reformat the data so 
that more help is presented on one 
screen at a time. Most of the help files, 
for example, are double spaced and 
require that you press ENTER several 
times to access all of the available data. 

EDLIN will be a familiar way of 
editing if you've ever edited a BASIC 
listing or used any other line oriented 








Table 1 


editor. EDLIN, unlike a word processor, 
edits only one line at a time. Therefore, 
each command in EDLIN must be given 
in relation to a particular line number. 

Once you have EDLIN and your file 
loaded, press L at the asterisk prompt 
(*) and press ENTER. You will see a 
listing of the first 23 lines of your file. 
Each line will have a line number as- 
signed to it, yet, those numbers are not 
saved to diskette when you are finished 
editing. The numbers are for EDLIN’s 
use only. Refer to your MS-DOS Quick 
Reference Guide or manual for a list of 
EDLIN commands and key functions. 

Using the EDLIN commands and 
special key functions, you have the tools 
to create and edit your own help 
screens. It may not be as convenient as 
using Desk Mate's Text section or other 
word processor but it gets the job done. 

Now let's take a look at one of the 
Desk Mate help files and how it might 
be improved. Don’t forget that not only 
can you change the text of your help 
files, you can also change the looks and 
format too. Figure | shows you the way 
TWALARM.HLP comes on the Desk Mate 
disk and Figure 2 shows you some of the 
improvements you might wish to make 
to this same file. Figure 1 is also an 
example of how EDLIN would list TWA 
LARM.HLP on your screen. 

In Figure 1, the text is double-spaced 
and covers only the basics of the alarm 
section. In Figure 2, I’ve added some 
information that might not be as readily 
apparent as are the function key oper- 
ations. This might or might not be the 
type of information you wish to keep in 
your help files; it’s just an example of 
what you might do with a help file. You 
might also add information about the 
way you have your system set up or 
include notes about different directo- 
ries. You might wish to improve the 
over-all look of the help screens with 
using asterisks, dashes, underlines and 
more. 


DeskMate Help Files 





Points to Remember 

I want to give you several points to 
keep in mind as you edit and create your 
personalized help files. 

First, always make sure your pages 
are no more than 23 lines long and each 
line is less that 80 characters long. 
Otherwise your pages will scroll up and 
you will not be able to read the top lines 
that have scrolled off the screen. Lines 
that are longer than 80 characters will 
affect the layout of the help screen. 

Second, keep in mind that, if you 
have a one-drive system, the files you 
are going to be editing with EDLIN must 
be on the same diskette as EDLIN. If you 
have two drives, you can have the files 
on a separate disk as long as you include 
the drive specification when you invoke 
the line editor. For example, to edit a file 
on the second disk drive, type: 


Alarm. 





EDLIN B:filename.ext 


This would load the line editor and then 
search and load your file from Drive B. 

A one-drive system would use the 
command: 


EDLIN filename.ext. 


A third point to remember concerns 
the way EDLIN protects the files you are 
editing. When you use EDLIN, it creates 
a new file on your diskette using the 
same filename but with a new extension 
of .BAK. This becomes the backup file 
in case something goes wrong during 
editing. If disaster strikes, you can 
always go back, rename and use the old 
file. EDLIN will not load a file with the 
extension .BAK as a protection against 
destroying your original file. You must 
rename the file with a new extension. 
EDLIN will then load it and create a new 
backup file. 

A final point to remember is not 
explained in the MS-DOS Quick Ref- 
erence Guide. The insert mode of EDLIN 
will continue to add lines to your file 
with each press of the ENTER key. To 
escape the insert mode, you must use 
CTRL-C to send the break signal. Also, 
pressing the ESC key at the end of your 
file will place the backslash (\) into your 
text automatically. 


: To select a function, press appropriate function keys. ` 


: [F6] | MERGE events from Calendar file into ° Алта file. 


2 [F7] 


di: [F8] 
: [F9] 
: (Fig) 


ADD an event to Alarm. 
time nequc ° 


[F12] Return to Main Menu. 


: Special! Note: 
: Main Menu for each day. : 





: EN » Ae 


SELECT beginning E event Dibek. move marker to end of. 
; desired block, then COPY or DELETE. 


COPY SELECTed events to сору. buffer or to крем. К 
DELETE current event or - SELECTed events fron Alarm file. 


Events automatically sortindate/ ae 


Alarm events. айну in upper μα corner of 
If Alarm is ON, events are automatically 
Ç Belated: from Alarm fi eas their dates and times pas 1; 














Put Away the Manuals 


Figure 2: Now that you know how to create 
and edit your own Desk Mate help files, 
you might never need to pull out the 

Alaru manuals again. If you find yourself 


repeatedly searching for manuals or 
magazine articles that have information 
concerning Desk Mate, you won't have 
to now. Now you can add the informa- 
tion to your help files and stop your 
searching. As we cover more and more 
of the details of Desk Mate herein PCM 
and the Integrated Desk, you will be 
able to put the information into your 
help files and always have it at your 
finger tips. 

If you have any problems, questions 
or suggestions about this or any other 
aspect of Desk Mate, don't hesitate to 
write me a letter or contact me on 
Delphi in the MSDOS group. 


To select a function, press appropriate function keys. 


[F6] | MERGE events from Calendar file into Alarm fíle. 

[F7] SELECT beginning of event block, move marker to end of 
desired block, then COPY or DELETE. 

[F8] -COPY SELECTed events to copy buffer or to specified file. 

[F9] DELETE. current event or SELECTed events from Alarm file. 

[F19] ADD an event to Alarm. Events automatically sort in date/ 
time order. 

[F12] Return to Main Menu. 


** SPECIAL NOTES ** 


You cannot turn the Alarm On whíle in the Alarm screen. When 
Alarm is ON the Main Menu has an "Q" in the far upper right hand 
corner of the screen next to the date and time. 

Alarm events displayed in upper right corner of DeskMate's 
Main Menu for each day. ΙΕ Alarm is ON, events are automatically 
deleted from Alarm file as their dates and times pass. 


N 





PORTABLE COMPUTER MEMORY EXPANSION 
24K Expansion RAM 8K Expansion RAM 


For the Model 200 For the Model 100, M 10 & 8201 
$99. each $190. for two $27. each $75. set of 3 


These modules are easily installable and feature the low power version CMOS 
static RAM. Illustrated step by step instructions with a memory test program 
listing included. Our aim is your satisfaction. There is a thirty day refund policy 
and a one year warranty. Phone and Mail orders are accepted and items are 
shipped promptly from stock. Call (714) 540-1174. 


American 


Shipping-Add $1.50 UPS Ground Cryptronics, Inc. 
or $4.00 2nd Day Air. ^J 1580 Corporate Dr., Suite 123 


M/C, VISA, Check or Money Order 


; Costa Mesa, СА92626 
à 
CA Residents add 696 Sales Tax Phone: (714) 540-1174 
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PCM 


By Kevin Nickols 
MS-DOS SIG Manager 


any of you have already 
joined us on Delphi in PCM's 
MS-DOS SIG. At the first of 


this year, membership in the group was 
already above 1,200 with more than 100 
users logging on each day. 

Because of the rapid influx of new 
subscribers we helped bring to Delphi, 
there have been some problems getting 
manuals and command cards delivered 
in a timely manner. In an effort to offset 
this inconvenience to our readers, we 
are reproducing a modified version of 
the Delphi command card on the fol- 
lowing two pages. 

I have somewhat disappointing news 
for our members north of the border 
this month who access Delphi through 
the Canadian Datapac network. Da- 
tapac is a packet-switched network with 
a very complex rate schedule, levying 
charges for every kilocharacter of data 
transferred. They have an arrangement 
with the U.S. carriers, Tymnet and 
Uninet, who bill Delphi for the Datapac 
usage connected through their net- 
works. Because of high charges Delphi 
is incurring through this arrangement, 
they have decided to raise their sur- 
charge for Datapac connection from $3 
to $12 an hour. With Delphi’s own 
charge for service of $6 an hour, even- 
ings and weekends, this brings the cost 
to $18 for the users who must access 
through the Datapac network (0.5. 
dollars, that is). 

However, there are some alternatives 
and there will be more in the future. 


March 1986 





Tymnet has a node in Toronto and plans 
to add other major Canadian cities early 
in the year. Uninet also plans to add 
Canadian nodes to its network soon, 
with rates only slightly higher than for 
the U.S. Also, Bell Canada is appar- 
ently running a promotion called 
INET2000, offering service into Delphi 
at a round-the-clock rate of $16 an hour. 

I would like to take a moment to 
mention the names of some people who 
have helped, in one way or another, get 
the MS-DOS SIG online and off to an 
impressive beginning. John Smithers, 
Bob McDonald, Bob Herring, Bob 
Jack, Bobby Ballard (lot's of Bobs!) and 
Leonard Hyre all deserve special thanks 
from me personally and all the rest of 
the group members. 

Which brings me to a point that I'll 
direct to all the programmers among 
you: Even if you don't care to join the 
SIG, or simply don't have the time to 
take part, you can still share your 
programs with other Tandy users who 
would love to have them. Send them to 
PCM (on a disk), along with operating 
instructions, and clearly state that they 
are for use on the MS-DOS SIG rather 
than.a submission to the magazine. I 
will post them in the group's databases 
and place your name in the display as 
the owner of the program. 


Send your suggestions and comments 
to me by Delphi Mail: Username 
(NICKOLS). I'll be waiting to hear 
from you. 
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TANDY IS DANDY... 


...until you want more memory 









Your Tandy 1000 is a good machine. 
A lot of computer for the money. 


Zuckerboard 
Expansion 














Board 
Configuration 


Tandy 
Memory Plus 






But you need to add more memory to 
get the best performance possible. 
Tandy wants a lot of money for that. 
Too much money. 


with 256K 
with 512K 
Clock Option 
Warranty 


$319.95 
$519.90 
$ 99.95* 
90 Days 


*with mouse 













Now there's another way to upgrade 





























your memory. The Zuckerboard г Ама ον 7n orit ae дешн айй 7 
Expansion Memory card. A high INTRODUCTORY OFFER ' 
quality, reliable board at a very ! Send the ZUCKERBOARDS | need for my TANDY 1000 right — 
reasonable price. y away i 
t Here's my check O or money order [| 
. - MADE PAYABLE TO A.T.D. - 
So, if you want to get the most out of EM with 256K @ $109 = Subtotal ! 
your computer, you have a choice. p EV ee D ' 
: The Doctor pays the shipping. Amount - 

: Encl 
You can go to Tandy, and Tandy will ! ien ! 
get the most out of you. y ME ' 
1 ADDRESS ' 
1 i 
ΤΉΝ ο ο σι ο. «αρ i 
Or, you can mas us. We П fill up ! TELEPHONE( ` ) 
your computer without emptying : A.T.D. 1287 Lawrence Station Rd., Sunnyvale, CA 94089 у 
I 


your wallet. Келденен н таасан ане санаанан 


CALL TOLL-FREE TO ORDER 
CA (800) 458-6200 
(800) 624-4920 






Dr. Dr. Zucker 


It's another 


ZUCKERBSARD 


Θ ΤΡ 1287 Lawrence Station Road ο Sunnyvale, CA 94089 « (408) 734-4631 


ZUCKERBOARD is a Trademark of Advanced Transducer Devices, Inc. 
Tandy 1000/1200 are Trademarks of Radio Shack, a Division of Tandy Corporation. 








SIZE AND WEIGHT! 

This printer is half the size and half 
the weight of your Mode! 100. 
Anywhere you happen to be, 
cruising at 30,000 feet or in a cab to 
an important business meeting, you 
can get a quick and quiet printout. A 
perfect companion for your 

Model 100/200/600. 


FEATURES? 

This printer has them all: 

* 8?" wide thermal paper 

* 512 byte buffer 

* Epson MX-80 bit-mapped graphics 
* Built-in automatic self test function 
* Excellent User's Manual 





GOING PORTABLE? 


WHAT ARE THE TWO MOST IMPORTANT CONSIDERATIONS? 


CACTUAL print sample»? 
260 Chars-Line,. 48 CPS! 
E rx 1 = r- = = сј | 
underlined Emphasized! 
CONDENSED gives you 168 chars. per line! 


$99 GRAND TOTAL 

You get the printer and a specially 
made 18"' cable (connects printer to 
your Model 100/200/600 or NEC 
8201/8401), 20' roll of paper, a 
paper holder, and 4 “C” batteries 
— everything you need to start 
printing immediately with the push 
of a button. This price also includes 
free UPS surface shipping in the 
cont. USA. There is no surcharge 
for VISA/MC/Amex — even the 
phone call is free. 


RUGGED 

This printer was designed to print 
over 300,000 lines without 
maintenance — that's over 104 
pages every week for a year. 












DIRECT TO YOU 

We've been selling this printer to 
our portable customers and 
corporate accounts for over a year. 
Two of our largest accounts, NBC 
and National Geographic, use them 
in the field all over the world. To 
meet the demand we have gone 
direct to the Japanese 
manufacturer. Our large volume 
cost is unbelievable»— that’s why 
we can offer it.direct to you at this 
fantastic рибе, yet Still-givesyou 
great service and support (6 month 
parts/labor warranty, 30 day money 
back satisfaction guarantee). 


SUPPORT 

We stock paper (rolls and sheets), 
cables, and accessories for the 
printer. The full accessory kit costs 
only $24 and includes a carrying 
case, 100' roll of paper, and an A/C 
adapter (saves batteries when A/C 
power is convenient). 


NO RISK 

Try it for 30 days, ask your friends 
and business associates if they've 
ever seen anything like it. You can 
return it in 30 days for any reason 
and get a full refund. Don't let 
yourself miss this portable printer 
bargain of a lifetime. 





TANDY 200 

24K Memory Module 

$89 — two for $170 

Can be installed in less than 2 
minutes, the only tool required is a 
coin to pop open the hatch. The 
TANDY 200 is expandable to 72K by 
adding two of our 24K modules. 
Built with the lowest power and 
most reliable memory chips 
available. The pins are made 
specifically for the TANDY 200 chip 
Socket. 2-Year Warranty. 


“ВАМ EXPANSIONS! 


FOOLISH TO PAY MORE — DANGEROUS TO PAY LESS 






















MODEL 100 

NEC РС-8201А, Olivetti M10 

8K Memory Module 

$29 — three for $79 

Plugs into the socket provided— 
expanding your memory by 8,192 
bytes. Super low power components 
for iong battery life. Low profile 
which is very important to properly 
fit the NEC PC-8201A. Tens of 
thousands sold since 1983. 

2-Year Warranty. 


4 
TANDY 600 e У” 
96K Memory Unit Ф 
$249 — two for $469 i) 

You can install one or tWo of these 
units inside your TANDY 600 — 
giving you a maximum of 224K. 


| 


3 o 





NEC PC-8201A 
SIDECAR 128K RAM 
CARTRIDGE 


PTE 
ορ! 






address below. Or, if you prefer, 
credit card orders can be handled 
by phone— VISA, MasterCard, and 
American Express are welcome. 
California residents add 6% sales 
tax. Checks allow 3 weeks to clear. 
Institutions and Corporations call for 
purchase order approval. 


1-800-732-5012 TOLL FREE 
Orders only (Bam. - 5pm. PST) 

In California (805) 987-4788 
For orders or customer service 


If you would like our latest product 
catalog or to find a dealer near you 
please write or call (805) 987-4788 


= PURPLE 
(44 COMPUTING 


420 Constitution Ave. 
Camarillo, CA 93010 
Telex: 888661 (PURPLE) 


Canada: Canada Portable Computer, 
Langley, B.C. (604) 856-8858 








Feature 


Household 
Inventory 


By Elsner H. Baade 


recent boating accident resulted 

in the loss of considerable and 
| JAexpensive equipment. Fortu- 
nately, on the advice of my insurance 
agent, Ї had made an inventory of this 
equipment, put it into the computer and 
provided him with a copy for placement 
with my insurance file. In response to 
my claim, the adjuster simply verified 
the actual items lost and the settlement 
was quickly and fairly made. 

The Household Inventory program is 
asimple program written in Tandy 1200 
BASIC and should work on any of Tan- 
dy's MS-DOS computers. It provides 
an easy way to keep a complete, room- 
by-room inventory showing the descrip- 
tion, date of purchase and cost or value 
of each item. The printer control codes 
used are for the DMP-2100 printer but 
may easily be adjusted to accommodate 
other printers. 

Household Inventory is an easy-to- 
use, menu-driven program with simple 
user responses throughout. The pro- 
gram loads in BASIC under the abre- 
viated name of HOUSE. When first run, 
the program presents a short title screen 
followed by the main menu which offers 
four options: 1) Initialize File, 2) Add 
to Data File, 3) Correct Data File and 
4) Print Data. 

Begin by selecting Option 1, Initialize 
File and press ENTER. This is followed 
by the question, “do you want to initial- 
ize the ownership file?”. Actually, as 
indicated in the listing, lines 30 through 
160, there are two random access files 
in the program. The first is the owner- 
ship file which stores the name of the 


Elsner Baade is retired and is a self- 
taught programmer. He currently main- 
tains and runs mailing lists for several 
local service organizations and has 
developed the computer programs for 
the local Meals On Wheels office. 


1000/1200/2000/3000 





Protect your investment in case of fire or 
theft with this BASIC program 


person who owns the property and the 
address. The other file stores the house- 
hold inventory. Since you are just 
starting, respond with Y. The program 
allows for either upper- or lowercase 
responses. Now, simply enter your 
responses to the questions. After enter- 
ing the state, you will have the option 
of correcting the full entry by entering 
it again. A Y response will close the file 
and continue the program. 

Answer Y to the question, “do you 
want to initialize the household furnish- 
ings?". At this point, it is simply a 
matter of responding to the questions. 
After the fourth response, you are again 
given the opportunity to correct your 
entry by entering it again or continuing 
to the next item by responding with Y 
or N. Please note that the date pur- 
chased must be filled. If in doubt as to 
when an item was purchased, simply fill 
in the month and day with zeros and 
guess the year as closely as possible. For 
example: 00700762. 

It is not necessary that household 
items be entered in any orderly fashion. 
That is, you may enter an item located 
in the garage, the next located in the 
third bedroom and the next located in 
the living room. The program will sort 
these and print them under the proper 
location heading. In practice, however, 
it is best, when initializing the file, to list 
all the items in a given room. Then move 
to the next room. 

You may end entries to the file and 
close it by responding N to the question, 





“do you have more entries?”. Or, if you 
desire to quit the program at this point 
press CTRL-BREAK together. The files 
are automatically saved when they are 
closed but, if you haven't saved the 
BASIC HOUSE program after typing it in, 
do it now. 

Assuming you are again back at the 
main menu, you now have the other 
options. If you have completed the 
inventory input, you will probably want 
to print it by selecting Option 4, Print 
Data. The program cautions you to 
check the printer and press ENTER when 
ready to print. I use standard 9\4 by 11 
continuous, blank paper. 

The printout will show you the record 
number of each item. Thus, if you want 
to correct any item, you can easily and 
quickly do so. Select Option 3, *Correct 
Data File" and in response to the 
question, *what record number do you 
want to correct?" enter the appropriate 
record number. There are several re- 
sponses built into the program. The first 
is to ask if you want to delete the data. 
If the answer is Y the question is “аге 
you sure?". A Y answer causes all the 
data in the record to be deleted and you 
are advised of that fact on the screen. 
If you have more corrections, the pro- 
gram continues. If you enter a record 
number which has previously been 
deleted, the program will respond and 
continue. An entry of a record number 
which is greater than the end-of-file will 
also be noted. An N response to the 
correction question will take you back 
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to the main menu. 

Adding to the data file is accom- 
plished by selecting Option 2, *Add To 
Data File." When Option 2 is selected, 
the program follows the same routines 
as used to initialize the file except the 
additional data records are added con- 
secutively to the previous highest record 
number. 


works. You should find that the loca- 
tions given are adequate for the average 
three-bedroom house. If you need more 
or less, it's a simple matter to change, 
add or delete. Location information is 
programmed in lines 620 to 730, lines 
1100 to 1220, lines 1790 to 1910 and 
lines 2030 to 2140. Any changes, addi- 
tions or deletions should be made in 


your attention to Line 1790. The 
number used in this DIM 01%( ) must 
be equal to the highest 01%( ). Also, in 
Line 1930, the M figure must be changed 
correspondingly. 

In developing the program, I arbi- 
trarily established 500 as the number of 
records in the file. Refer to Line 1930 
(N = 500). If you find you need more, 


Essentially, that’s how the program each of these areas. I particularly draw just increase this accordingly. 


The listing: 

19 ' жуук Household Inventory Program) хее 
29" 

3g ' Variables Used - Owners File 

4g." "OWNER" - Random Access File (99) 
50." МЕ$ = Person(s) Name (39) 

69." AF$ = Address of Property (39) 
78 ' CYF$ = City (15) 

89 ' R$ = User Response 

99 

199. Variables Used - Property inventory 
11g ' "POSSN" - Random Access File (50) 
120 ' АЕ$ = Description of Property  (3g) 
13g ' BF$ = Location of Property (2) 
14g ' 085 = Date of Purchase (8) 

159 ' DF$ = Cost or Value (19) 

160 ' R$ = User Response 

179 ' 

180 ' 

199 GOSUB 2399 

200 CLS 


210 COLOR 15,1,14 : CLS 

229 LOCATE 3,46: PRINT "Menu" 

239 LOCATE 5,39: PRINT "1 = To Initialize File" 

249 LOCATE ,39: PRINT "2 = To Add To Data File" 

259 LOCATE , 30: PRINT "3 = To Correct Data File" 

269 LOCATE ,39; PRINT "4 = To Print Data" 

279 LOCATE 19,39: ВЕЕР: INPUT "Enter Number of Selection 
280 ON SELECTION СОТО 299,1239;1279,1649 

290 CLS: : LOCATE 5,19: PRINT "You have chosen to initialize the file ": LOCATE 7 
16; PRINT "Do you wish to initialize the ownership file ? ": LOCATE ,19: INPUT 

"(Y or N) ",R$ 

39g IF LEFIS(RS$,1) = "N" OR LEFT$(R$,;1) = "п" THEN СОТО 520 

31g IF LEFTS$(R$,1) = "Y" OR LEFT$(R$,1) = "y" THEN СОТО 329 ELSE ВЕЕР: ВЕЕР: GOT 
0.299 

329 CLS: GOSUB 2270 

339 R = 1 

349 LOCATE 3,19: BEEP: INPUT "Enter person(s) owning the property  ",N$ 

35% CLS: LOCATE 3,19: ВЕЕР: INPUT "Enter street address where property is locate 
d " AS 

369 CLS:LOCATE 3,19: ВЕЕР: INPUT "Enter City where property is located 

379 CLS:LOCATE 3,19: ВЕЕР: INPUT "Enter State where property is located 
389 CLS: LOCATE 5,29: PRINT N$ 

399 LOCATE ,29: PRINT A$ 

499 LOCATE ‚20: PRINT CY$ 

419 LOCATE ,29: PRINT S$ 

420 LOCATE 19,29: ВЕЕР: INPUT "Is this correct ? 
439 IF R$ = "N" OR R$ = "n" THEN СОТО 349 


"|, SELECTION 


"Уб 
" ,S$ 


" R$ 
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αρ. LSET | wes. Tw J 
Hi m; { [ | 


Т PUT #1, к: 
| 499 LOCATE 12,20: 


1598: LOCATE 29: IN 
516 IF η, 
1520018: LOCATE : 
|) BORNE Уу 


cams 3$. =) Uus жт: бото. зр. 


620 LOCATE 5,1 NT "1 

630 LOCATE ,14 PRINT "2/2 [ Kitchen": ШИН, 

640 LOCATE ,14; PRINT "3 = Dinnette Area" | 
/659 LOCATE ,14: PRINT "4 = Dining Room": 

17669 LOCATE ,14: PRINT "5 = Family. Room". 

| 679 LOCATE ,14: PRINT "6 = Living Room" | 
689 LOCATE ,14: PRINT "7 = Master BR/Bath" 

690 LOCATE. 14: PRINT "8 = # 2 BR/Bath" i 





Plot Against Your Competition! 
with QuickPlot® 


H We're the people who gave the CGP- 
COMPANY xY2 - 1382 115 Color Plotter business status. 
MONTHLY SALES ANALYSIS | With QuickPlot, your Model 100, or 

| Tandy 200, produces high quality 
line-, bar- and pie-charts in vivid 
color. Simple data entry and flexible 
chart formatting makes QuickPlot 
and the CGP-115 Color Plotter the 
logical choice for the professional 
ШЕ Um, E : E who wants to plot his profits—not 
JUR. oso mu EP  BCT ! E | $репа їһет. 
BEAST COAST ISCENTRAL 
БМІ0-МЕЅТ "yop BEST COAST PCM 


—— CERTIFICATION 
SEAL 





















SALES (x 1000) 



























- STILL ONLY Now you have a friend in the software business. 
Complete QuickPlot Package C luti 
Includes: Bar Chart, Pie Chart $49 00 omputer Solutions Co. 
and Line Graph. Data and chart s 








SoLurioN P.O. Box 24383 

OLUTIONSS Louisville, KY 40224-0383 
(502) 245-0232 

Call or writeto place your order or send for tree 

information. 


formats save to disk or tape for We pay shipping 
future plotting. on pre-paid orders 


















Model 100, Tandy 200 and CGP-115 are 
registered trademarks of Tandy Corporation. 
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799 LOCATE ,14: PRINT "9 = # 3 BR/Bath" 
718 LOCATE ,14; PRINT "19 = Basement" 
729 LOCATE ,14: PRINT "11 = Patio" 
739 LOCATE ,14: PRINT "12 = Yard" 

749 PRINT: LOCATE ‚10: INPUT "Select number and «ENTER» ",18 
759 IF L$ = "" THEN 749 





769 IF LEN(L$) > 2 THEN BRER |: ВЕЕР; LOCATE 18,19: PRINT "Too long - max 2 - re- 


enter": GOTO 619 

779 ТЕ LEN(L$) < 2 THEN L$ = L$ + " "::GOTO 779 

789 CLS 

‚790 LOCATE 5,19: INPUT "Enter Date Purchased (mm/dd/yy)  ",D$ 
800 IF D$ = "" THEN 799 


810 IF LEN(D$) — 8 THEN ВЕЕР: CLS: LOCATE 3,19: PRINT "Re-enter": 


829 CLS 
83g LOCATE 5,19: INPUT "Enter cost of item (dollars & cents) 
84g ΤΕ C$ = "" THEN 839 


GOTO 799 


" ως 


859 IF LEN(C$) > 19 THEN ВЕЕР: GLS ; LOCATE 13,10: PRINT "Re-enter": GOTO 839 


869 IF LEN(C$) < 1g THEN C$ = C$ + " ": GOTO 869 
879. CLS 

889 LOCATE 5,19: PRINT I$ 

899 GOSUB 1999 

999 LOCATE ,19: PRINT D$ 

919 LOCATE ,19: PRINT C$ I 

92@ LOCATE 19,19: INPUT "Is this correct ?  ",R$ 


939 IF LEFT$(R$,1) = "М" OR LEFTS(R$,1) = "n" THEN CLS: GOTO 569 


949 LSET ΔΕΣ = I$ 

959 LSET ВЕ$ = L$ 

969 LSET CF$ = D$ 

97g LSET DF$ = C$ 

989 PUT *l,R 

999. CLS 

1999 LOCATE 5,19: INPUT "Do you have more entries ?  ",R$ 
1919 IF LEFTS(R$)1) = "М" OR LEFT$(RS$,1) = "n" THEN GOTO 1240 
1929 CLS 

1939 СОТО 559. 

1949 CLOSE #1: CLS; LOCATE 5, ig: PRINT "File closed" 


1859 LOCATE 7,19: INPUT "Press <ENTER> to return to menu ",R$ : 


1969 OPEN "R",41,"POSSN", 59 

1979 FIELD 41,99 AS AF$,2 AS BF$,8 AS CF$,19 AS DFS 
1989 RETURN 

1999 X = VAL(L$) 

1199 IF X = 1 THEN LOCATE 6,19: PRINT "Garage"; RETURN 


1110 IF X = 2 THEN LOCATE ‚10: PRINT "Kitchen": RETURN 

1129 IF X = 3 THEN LOCATE ,19: PRINT "Dinnette Area": RETURN 
1139 IF X = 4 THEN LOCATE ,19: PRINT "Dining Room": RETURN 
1140 IF X = 5 THEN LOCATE ,19: PRINT "Family Room": RETURN 
1159 IF X = 6 THEN LOCATE ,19: PRINT "Living Room": RETURN 
1169 IF X = 7 THEN LOCATE ‚10: PRINT "Master BR/Bath": RETURN 
1179 IF X = 8 THEN LOCATE ,19: PRINT "4 2 BR/Bath": RETURN 
1189 IF X = 9 THEN LOCATE ,19: PRINT "# 3 BR/Bath": RETURN 
1196 IF X = 9 THEN LOCATE ,19: PRINT "s 3 BR/Bath": RETURN 
129g IF X = 19 THEN LOCATE ,19: PRINT "Basement": RETURN 
1219 IF X = 11 THEN LOCATE ,19: PRINT "Patio": RETURN 

1229 IF X = 12 THEN LOCATE ,19: PRINT "Yard": RETURN 


1239 CLS: GOSUB 1969 
1249 R = (LOF(1)/59) + 1 
1259 GET #1)R 
1269 GOTO 56g 
1279 GOSUB 1969 


CLS: GOTO 229 
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1289 CLS: LOCATE 19,19: INPUT "What record number do you want to correct? 
1299 GET *1,R : CLS 

139g IF R > (LOF(1)/57) THEN LOCATE 12,19: PRINT "Record number greater than end 
of file ": FOR T = 1 TO 1599: NEXT T : LOCATE 12,19: COLOR ,1: PRINT STRINGS (49 
,CHRS(32)): COLOR 15 ; СОТО 128g 

1316 LOCATE 5,19: PRINT AFS 

1320 LOCATE ‚10: PRINT BFS 

1339 LOCATE ,19: PRINT CFS 

1349 LOCATE ,19: PRINT DF$ 

1350 IF АЕ$ = STRING$(39,CHR$(32)) THEN LOCATE 5,19: PRINT "The data for record 
number ";R;"has been deleted ",X$ ; FOR T = 1 TO 1599: NEXT T : GOTO 1599 

1369 LOCATE 19,19: INPUT "Do you wish to delete this data? "ORS: IF LEFT$(R$ ; 1) 
= "ү" OR LEFT$(R$,1) = "y" THEN LOCATE 12,19; INPUT "Are you sure ? Ü" R$ 

1379 IF LEFT$(R$,1) = "Y" OR LEFTS(R$,1) = "y" THEN CLS: GOTO 1549 

1389 LOCATE 19,19: COLOR 1: PRINT STRING$(69,CHR$(32)): COLOR 15 

1396 LOCATE 11,19: INPUT "Enter correct desription bs 

149g LOCATE 12,19: INPUT "Enter correct location  ",L$ 

1419 LOCATE 13,19; INPUT "Enter correct date of purchase  ",D$ 

1429 LOCATE 14,19: INPUT "Enter correct cost "ον 

1430 LOCATE 16,19: INPUT "Are these now correct ? M" R$ 

1449 IF LEFT$(R$,1) = "N" OR LEFT$(R$,1) = "n" THEN CLS : GOTO 1319 

1459 LSET AF$ = I$ 

1469 LSET BF$ = L$ 

1479 LSET CF$ = D$ 

1489 LSET DF$ = C$ 

1499 PUT *l,R 

1599 CLS: LOCATE 9,19: INPUT "Do you have more corrections?  ";R$ 

1519 IF LEFT$(R$,1) = "N" OR LEFTS(RS$,1) = "n" THEN CLOSE #1: CLS: GOTO 229 

1520 IF LEFTS(R$,1) = "Y" OR LEFT$(R$,1) = "y" THEN GOTO 1530 ELSE СОТО 1599 
1539 GOTO 1289 

1549 I$ = STRING$(39,CHR$(32)) 

1550 L$ = STRING$(2,CHR$(32)) 

1560 D$ = STRINGS$(8,CHR$(32)) 

1579 C$ = STRINGS(19,CHR$(32)) 

1580 LSET AF$ = I$ 

1599 LSET BF$ = 15 

1699 LSET CFS = D$ 

1619 LSET DF$ = C$ 

1629 PUT #1,R : CLS: LOCATE 19,19: PRINT "Record number ";R ;"has been deleted " 
у FOR Т = 1 TO 1599: NEXT T 

1639 GOTO 1599 

1649 LPRINT CHR$ (27) ; CHR$(31) ; CHR$ (27) ; CHR$ (19) 

1650 CLS: LOCATE 19,19: PRINT "Check printer" 

1669 LOCATE 12,19: INPUT "Press «ENTER» to print " R$ 

1679 T$ = "HOUSEHOLD FURNISHINGS" 

1689 GOSUB 2279 

1699 R = 1 : GET #1,R 

1799 LPRINT CHR$(27) ; CHR$(14) ; TAB(19) ; T$; CHR$(27) ; CHR$ (15) 

1716 LPRINT: LPRINT: LPRINT ΝΕΦ 

1720 LPRINT AF$ 

1739 LPRINT CYF$;" ";SF$ 

1749 CLOSE #1 

1759 LPRINT STRING$(2,CHR$(19)) 

1769 LPRINT TAB(4) ;"Location"; TAB(15);"Item";TAB(53);"Date "STAB(62) ; "Кя"; TABC78 
);"Cost" 

177g LPRINT TAB(59);"Purchased" 

1789. LPRINT 

1799 DIM D1$(12) 

189g D1$(1)= "GARAGE" 


‚К 
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1819 D1$(2)- 
1829 D1$(3)- 
1839 D1$(4)= 
1849 D1$(5)= 


"KITCHEN" 
"DINNETTE" 
"DINING ROOM" 
"FAMILY ROOM" 


1859 Ρ19(6)-- "LIVING ROOM" 
1869 D19(7)- "MASTER BR/BATH" 
1879 D1$(8)= "# 2 BR/BATH" 
1889 р19(9) = "# 3 BR/BATH" 
1899 D1$(19) = "BASEMENT" 
1999 D1$(11) = "PATIO" 

1919 D19(12) = "YARD" 

1929 GOSUB 1969 
1939 R= 1: M = 12 : N = 59g 
1949 FOR I = 1 TO M 

195g LPRINT CHR$(27);CHR$(14);D1$(I);CHR$(27);CHR$(15) 
1969 LPRINT 

1979 IF I = M THEN СОТО 2249 

1989 R= 1 

1999 FOR J = 1 TO N 

2999 GET #1,R 

2919 АЕ$ = STRING$(39,CHRS(32)) THEN СОТО 2299 
2929 R = (LOF(1)/58) + 1 THEN GOTO 2229 

2939 LEFTS(BF$,1) = "1" THEN X$ = "GARAGE" 

2949 LEFTS(BF$,1) = "2" THEN X$ = "KITCHEN" 
2959 LEFTS(BF$,1) = "3" THEN "DINNETTE" 
296g LEFTS(BF$,1) = "4" THEN "DINING ROOM" 


2079 LEFTS(BF$,1) "5" THEN "FAMILY ROOM" 
2989 LEFT$(BF$ ,1) "6" THEN "LIVING ROOM” 
29099 LEFTS(BF$,1) = "7" THEN "MASTER BR/BATH" 
2199 LEFTS(BF$,1) = "8" THEN "# 2 BR/BATH" 
2119 LEFT$(BF$,1) = "9" THEN "# 3 BR/BATH" 
2129 BF$ = "19" THEN X$ = "BASEMENT" 

2139 BF$ = "11" THEN X$ = "PATIO" 

2149 ΒΕΦ = "12" THEN X$ = "YARD" 

2159 X$ <> ΡΙ5(1) THEN СОТО 2299 ELSE A = VAL(DF$) 
2169 LPRINT TAB(15);AF$; 
217g LPRINT TAB(51)5;CF$; 

2189 LPRINT TAB(62);R; 

2199 LPRINT TAB(66) USING" S##### А: 
229g R = R + 1 

2219 NEXT J | 
2229 LPRINT: LPRINT TAB(39);"Sub Total";TAB(66) USING "$4444. 44": Sl 
l*S1:S1-2 g i : 
2239 NEXT I 

2249 LPRINT 

2259 LPRINT TAB(39); TOTAL"; TAB(66) USING"$##### Vett TL 

2269 CLOSE *1 : CLS i LOCATE 19,19: PRINT "End of File - Епа": 
2279 OPEN "R",91,"OWNER",99 

2289 FIELD 41,39 AS NF$,39 AS AF$,15 AS CYF$,15 AS SFS 

2299 RETURN 

2399 COLOR 4,7,9 : CLS 

2319 LOCATE 5,25: PRINT STRING$(25,"*") 

2329 FOR I = g TO 8: LOCATE ‚25: PRINT "ж":; 
2339 LOCATE 7,28: PRINT "HOUSEHOLD INVENTORY" 
2349 LOCATE 9,31: PRINT "by Ε.Β. Baade" 

2359 LOCATE 11,35: PRINT "For" 

2369 LOCATE 13,31: PRINT "TANDY 1209 HD" 

2379 LOCATE 15,25: PRINT STRINGS (25), twt) 

2389 FOR T = 1 TO 299g: NEXT T : RETURN 


Sl = Sl + A 
im sr 


à 
Ñ 


END: 


LOCATE ,49: PRINT "я": NEXT I 
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We edged out the competition 
with better solutions for 


every application. 
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Presenting the Tandy” line of 
PC-compatible computers 
from Radio Shack 


At Radio Shack Computer 
Centers, you won’t find just any 
computer, you'll find the right 
computer for your business. Our 
line of computers based on the 
MS"-DOS operating system lets 
you outfit your office with the 
computing power you need, with- 
out paying for capabilities you 
may never use. And since we carry 
a wide range of software and ac- 
cessories, you can do all of your 
business at one location. So come 
in today and let our trained staff 
help you decide which Tandy com- 
puter is right for your business. 


America's *1 PC compatible 
Looking for a complete, low- 
cost MS-DOS system? Take a 
look at our popular Tandy 1000. 
Because the Tandy 1000 is com- 
patible with the IBM® PC, there 
are thousands of software pro- 
grams for you to choose from. 
But unlike IBM’s PC, every 
Tandy 1000 comes with Desk- 
Mate® software. DeskMate in- 
cludes six applications so you can 
start computing from day one. 


The PC/XT’s “mirror image" 

The Tandy 1200 works like an 
IBM PC/XT—but costs much 
less. The 1200 runs the same 
top-name software and supports 
the same hardware as the PC/XT. 
So if you’re already using one or 
more IBM PC's in your office, 
the Tandy 1200 lets you expand 
for less—and continue using the 
same software. 


The graphics advantage 
Searching for a quality com- 
puter with advanced graphics 
capabilities? Take a good look 
at the affordable Tandy 2000. 
The 2000 features high- 
resolution graphics to create 
razor-sharp graphs and diagrams 
in a brilliant array of colors. 


Combined with computer- 
aided-design software, a Tandy 
2000 gives your company endless 
opportunities for increased crea- 
tivity and productivity. 


The new Tandy 3000 


Introducing a super-powerful 
computer that’s the affordable al- 
ternative to the IBM PC/AT. The 
Tandy 3000 has all the power 
you need to manage your busi- 
ness, and it’s compatible with 
programs designed for the PC/AT 
and PC/XT. The Tandy 3000 op- 
erates at 8 megahertz, twice the 
speed of the industry standard. It 
comes with 512K of main mem- 
ory and ten expansion slots. And 
with the forthcoming XENIX™ 
operating system, two to six us- 
ers will be able to use the Tandy 
3000 simultaneously, using low- 
cost data terminals. 


In business...for business 

For the best in state-of-the-art 
computers, popular software, 
professional training, support 
and affordable leasing, visit your 
local Radio Shack Computer 
Center today. 


Available at over 1200 
Radio Shack Computer Centers and at 
participating Radio Shack stores and dealers. 


Radio Shaek 


COMPUTER CENTERS 


A DIVISION OF TANDY CORPORATION 
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DeskMate/Registered TM Tandy Corp. IBM/ 
Registered TM International Business Machines 
Corp. MS and XENIX/TM Microsoft Corp. 


Ш 
The Gallery 








With Wayne Sanders, Curator 


his month's featured exhibit is another example 

of how mathematical functions can be used to 

create beautiful graphics. In this case, ellipses 
are used to form a basket of flowers on your Tandy 
2000's color monitor. This program came to us from 
Leonard Guay of Jacksonville Beach, FL. 

If you would like to have your graphics creation 
presented here, send it in on disk with a letter 
describing how it works. If possible, include instruc- 
tions on how to make your program work on each 
Tandy MS-DOS machine. A winning gallery exhibit 
is chosen each month and the "artist" is awarded $50. 
Address your entries to PCM Gallery, P.O. Box 385, 
Prospect, KY 40059. 
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; ан tein by Leonard Guay-14759 Beach Blvd.#16 
Jacksonville Beach,Fl1.-32259 

'" Submitted to:PCM-19/18/85 for approval. (THE GALLERY) 

'*eeeekEllipse Rotation/Transformation*eeeekdejeteseere 

'" Formula: (X-HT)^2/A^2*(Y-VT)^2/B^2-1 

' Trasform: X=A*COS(@)+HT AND  Y-B*SIN(Q)4VT 

' Change values <A>,<B> to modify curve and(ASP) 

'"/:Nalue «IH» is rotation angle and «HT,VT- values of translation, 

REME AK reker PROGRAMI K eredetei dekdek dekk 
109 KEY OFF; SCREEN 3:COLOR Ø, Ø: CES 
110 PALETTE 1;2:PALETTE 2,12:PALETTE 3,22; PALETTE 4,9:PALETTE 5;,13:PALETTE 6,11: 
PALETTE 7,23 
129 XL=-6:XR=6: YT=-4 7 YB=5 2" Set Window 
138 AL=ABS (XL): AR=ABS.(XR) : AT-ABS(YT) : AB=ABS CYB) 
149 SH=649/(AL+AR) :SV=490/(CAT+AB) 
150 HT-8:VT-0:PI-3.14159 
169 A-4.5:B-2.2:ASP-10/28:0-2:P-PI/128:0X-329:CY-299:S1-9:E1-3:82—. 5*PI:E2-1;.5*P 
I:GOSUB. 1910 :1Draw Basket 
179//A-4.5:B-2:ASP-19/28:C-1:P-PI/18:0X-289:CY-290:S1-9:E1-3.2:82-0 :E2—, 5*PI:GOS 
UB 1616 ‘Greens 
180 CX=99: CY=175:.C=1 it First: Flower(2) 
190 A-1.2:B-1:ASP-1/28:P-—PI/6:GOSUB. 1999 
299: CX-429:CY-190:GOSUB 1999 
210 A-1::P-PI/24:C-4::GOSUB 1999 
220 CX=99: CY=175:GOSUB 1999 
230 A-.95:B—-,85:ASP—.5/25:P-PI/24:C-53:GOSUB 1999 
24 CX=429: CY=199: GOSUB 1999 
259. CX=289: CY=99: C=} 1" Second’ Flower (3) 
269 A-1.5:B-1.5:ASP-1.5/28:P-PI/6:GOSUB 1999 
279 CX=3909:CY=299:GOSUB 1999 
286 CX=439; CY=199:GOSUB 1999 
299 A-1.4:B-1.3:P-PI/16:ASP-1.2/28:0-4:GOSUB 1999 
369 CX-399:CY-290:C97:GOSUB 1999 
3109 CX=289:CY=99:C=2;GOSUB 19909 
320 A-1.2:B-,85:ASP-1/28:0—3:GOSUB 1999 
330 CX=399; CY=299:C=5:;GOSUB 1999 
340 CX=439: CY=1L99:C=6: GOSUB 19900 
359) CX=529:CY=179: C=1 2! Third Fower (3) 
366 A=1/2;B=1:ASP=1/28: P=PI/6:GOSUB 1999 
3170 CX=189:CY=189:C=1:GOSUB 1999 
380 //0X-169:CY-95:C-1:GOSUB. 1999 
390 A-1:B-—.85:P-PI/39:C-2::GOSUB 1999 
499 CX=520: CY=179:C=5; GOSUB 1999 
419 CX=189: CY=189:C=4: GOSUB’ 1999 
429) GOTO 426 
1099 51-ρ;:Ε1-3.2:52-φ: E2=6.4 
1919 FOR ΤΗΞΡΙ TO El STEP P:SI-SIN(TBH):C1-COS(TH) 
1929 FOR T=S2 TO E2 STEP .2:X-A*COS(T):Y-B*SIN(T)*ASP 
1930 X12X*Cl-Y*SlTHT:Yl-X*Sl4-Y*CI4VT:IF T=@ THEN PSET(XI*SH4CX,CY-Yl*SV);,C 
1949 LINE-(XI*SH4CX,CY-Yl*SV);C:NEXT T:NEXT TH:RETURN 


March 1986 PCM 





45 


eS аан 


A crystal ball for your financial future 


IRA Projection 


ne of the best ideas the federal 
(О) has had in the last 

decade has to be the Individual 
Retirement Account (IRA). It gives the 
average person the chance to build a 
future retirement fund without taxation 
on the money he or she puts away. 

People who are considering such 
accounts invariably wonder about just 
how it all adds up, and rightly so. I love 
to plug in various figures and watch the 
theoretical interest come pouring in. 
You can get some practical use out of 
my IRA projection program and, at the 
same time, kick around lots of figures 
just to be sure you are choosing the right 
investment plan and financial institu- 
tion. 

This program, JRA Projection, is a 
simple demonstration of the fact that 
programs do not need to be long and 
complicated to be useful. Nor do “se- 
rious” programs have to be boring. A 
little pizazz in the title screen adds a lot 
to overall program appearance. 

The first portion of the program is 
dedicated to displaying a fancy title 
screen and giving the author his ego 
strokes. To make the large letters, I 
create strings using the DRAW command 
syntax. For example, Line 290 is a string 
needed to draw the large letter ‘I’ (XI$). 
It is executed in the DRAW statement in 
Line 300. A touch of paint here and the 
title screen is finished. 

IRA Projection's main program is 
built around a formula to calculate 


compounding interest on level install- 


Leonard Hyre works as a claims repre- 
sentative for the Social Security Admin- 
istration. He has written several articles 
for THE RAINBOW, PCM 5 sister publi- 
cation for the Color Computer, and is 
the author of a number of commercial 
programs. He may be contacted at P.O. 
Box 403, Cambridge, MD 21613; 301- 
228-0064. 
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By 
Leonard 
Hyre 









ments over a number of years (lines 710 
through 720). To use the formula, the 
user provides the needed figures (how 
much, how often, what interest rate, 
etc.) for a projection. This is handled in 
lines 530 through 650. 

Once the program has calculated the 
results, the problem becomes one of 
effective display of the data. Lines 730 
through 1170 handle this chore, giving 
the user an option to get a hardcopy as 
well as on-screen data. If you are a 
novice programmer, you might like to 
take a look at the use of PRINT USING 


The listing: 
RPI IRI IIR IAAI AE 
IRA PROJECTIONS 


* 
by L HYRE * 
12/85 * 
* 
* 
* 


(c) 


For TANDY MSDOS 
Computers 
HAKAN AIH INI I AIR II. 


to make the display format neat and 
useful. This command may be the most 
overlooked tool available to the new 
BASIC programmer, and it is one of the 
most powerful! 

Typing in the program is a fairly 
simple matter; there are no long and 
complicated lines to check. Be careful in 
getting the syntax of PRINT USING 
correctly or the screen and printout 
could look jumbled. 

I hope you find JRA Projection a 
useful addition to your software li- 
brary. D 


19g тэе The TITLE SCREEN жх 


119 ' 


129 KEY OFF:SCREEN 1,1:COLOR 9:CLS 


139 ' 











14g "жук IF Your TANDY Is A Model 1299, 2999, OR. 3999 DELETE Line 168 yee 
150 | i 
169 PALETTE 1,213 кз We need some GREEN | TEE 199g ONLY! Nee 

179 DWS-STRINGS$(4,"$"): ACS-STRINGS$(17,"$"): BR$e"S$S $$" j ШЕН 

186 LINE(29,29)-(399,184),1,B,&H5555: '%* Strange Borders eek ji 

199 LINE(25,;,25)-(295,179),1,B, &H5555 

299 LOCATE 7,12:PRINT |AC$;: LOCATE 8,12: PRINT ACS: LOCATE) 12,12: PRINT cs: inniti di f HE 
3,12:PRINT ACS: LOGATE. 17,12:PRINT ACS: LOCATE 18,12:PRINT AC$ |) 

219 LOCATE 9,12:PRINT Dus: LOCATE 19,12:PRINT DW$:LOCATE 11,12: PRINT. Dus. 

229 LOCATE 14, 25:PRINT DWS: LOCATE 15,25:PRINT DW$:LOCATE 16, ‚25: PRINT. pis 

230 LOCATE 9,25:PRINT DW$:LOCATE 16,12:PRINT DWS iii 

249 LOCATE 5,18:PRINT BR$:LOCATE 6,18: PRINT: BRS FOR BR=9 TO 11: LOCATE BR, 18: PRIN { 
T BR$:NEXT:FOR BR=14 TO 16:LOCATE BR,18:PRINT BRS:NEXT: LOCATE 19, 18: ERENT: ihi LO 
CATE 29,18:PRINT BR$ i 
250 ' 

260 

279 κά Create BIG Letters I; R and A жк 

289 " 

299 ИЙНИН aqupi АДН ҮН НИНИН in thd thle hiii 

399 DRAW"bm35,128;c3;xxi$;" | 

510 XR$="u79r69d39119F19d39119u39h19139d49119" 

326 DRAW"bm125,128;c2;xxr$;" 

339 LINE(135,65)-(175,89),2,B 

349 XA$«"u6gelgr3g9f19d69119u3913943911g" 

350 DRAW'bm230,128;c3;xxa$;" 

360 DRAW'bm249,88;c3; sul 5e5r20£5d15139" ИНИНИ d 

378 PAINT(38,125),1,3 НИН НН ИШИНИН 

389 PAINT(128,126),1,2 | Г i 

399) PAINT(233,125),1;3 | 

499 LOCATE 22,6:PRINT "Individual Retirement Accounts” 

419 FOR DL-l TO 1999:NEXT:LOCATE 25,16:PRINT "by L. Нуке"; 

420 FOR DL=1 TO 2590:NEXT 

439" 

449 "59 The MAIN PROGRAM www 

45g" 

460 SCREEN 9; 1:WIDTH 89:COLOR 4,7 

479 CLS:PRINT CHR$(291);STRING$(78,CHR$(285)) ; CHR$ (187) 

489 PRINT CHR$(186);SPACES(23);" Individual Retirement Account "; ‘SPACES (24); ems 
(186); 

499 PRINT CHR$(299); STRINGS (78 , CHR$(295)); CHRS (188); 

597 " | 

519 '*e*e* Get Needed Input жж 

528 

539 COLOR ϱ 

549g A=; B= 

559 LOCATE 6,6 

56%: INPUT" YOUR NAME"; N$ 

579 LOCATE 8,6 | ΠΗ 

589 INPUT" TOTAL DEPOSIT PER YEAR":C Hin 

599 LOCATE 19,6 HH HH 

600 INPUT"ANTICIPATED % INTEREST'":D 

619 LOCATE 12,6 

629 INPUT"NO;' TIMES COMPOUNDED/YR';E 

639 LOCATE 14,6 | 





64g LO-5 | 

659 INPUT"NO. YEARS TO PROJECT...";F 
669 ' 

679 ‘re OUTPUT RESULTS TO SCREEN ж» 


680 ' 
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699 CLS:GOSUB 88g 


799 FOR G=1 TO F 


719 A-(14D/(19g*E)) ^E*(A*C) 

729 B-FIX((199*A)4.5)/10g 

739 LOCATE LC,8 

749 PRINT USING'"44";G;:PRINT USING" ннн н": В 


7509 LO=LC+1 


769 IF 16-15 THEN LC-5 

770 IF G/19-INT(G/19) THEN GOSUB 999 

789 NEXT С 

799 PRINT: PRINT" Your Total Deposit Would Be ";:PRINT USING S######. #4") CXF 
899 PRINT"Net Increase Would Be ";:PRINT USING" S###### .##" > B- (CF) 

81g ' 


829 "39: PRINTER OPTION OFFERED *e* 


830 ' 


849 PRINT:PRINT"Press ΤΡ: For PRINTOUT" 

859 PRINT"Any Other Key For Another Projection!" 

869 ANS=INKEY$: IF ANS$=""THEN 869 

879 IF ANS="P" OR AN$-"p" THEN 989 ELSE 479 

889 XAS-"IRA Projection for:":XX$-XAS4N$:LOCATE 1;,1:PRINT XX$ 
899: RETURN 

999 LOCATE 6,49:COLOR 4:PRINT"« Press any key to continue >" 
919 LOCATE 7,49: PRINT" ": COLOR g 
929 ANS=INKEY$: LF AN$-'"THEN 929 

930 CLS: PRINT XX$ 

949 RETURN 

950 ; 

96g ‘x PRINTOUT ROUTINE ж» 

979" 

989 CLS 

999 PRINT:PRINT "PRINTING OPERATION IN PROGRESS" 

199g PRINT"ONE MINUTE PLEASE!" 

1919 LPRINT STRINGS$(89;,"z') 

1929 LPRINT"INDIVIDUAL RETIREMENT ACCOUNT PROJECTION FOR: "N$ 
1030 LPRINT "BASED ON DEPOSITS OF $";C;" OVER ";F;" YEARS" 
1949 LPRINT "ANTICIPATED INTEREST RATE IS ";D;"$ COMPOUNDED ";E;" TIMES/YEAR" 
1050 LPRINT STRING$(89;,"-") 

196g Heg . 

1979 A=9;B=9 

1989 FOR G=1l TO F 

1999 A—-(l*D/(19Q*E))^E*(ATC) : B=FIX((190*A)+.5)/199 

1199 LPRINT TAB(25); 


1116 LPRINT "YEAR * ";:LPRINT USING'48":G; :LPRINT" "SILPRINT USING S##HHHH ## 


"УВ 

1120 NEXT С 

1139 LPRINT:LPRINT TAB(13);"TOTAL DEPOSITS-";:LPRINT USING S######.##" : CHE: LPRT 
NT" FOR NET INCREASE OF ";:LPRINT USING"S444444., 44" :B- (CKF) 


71149 LPRINT:LPRINT STRINGS$(89," ") 
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1159 PRINT'"OPERATION COMPLETED" 

1169 PLAY"OAC" 

117g FOR DL-1 TO 499 NEXT 

1180 

1199 ΜΑ DO ANOTHER PROJECTION? *** 

129g ' 

1219 LOCATE 23,6:PRINT"Do you want another projection ? ( Y/N )" 
1229 ΑΡΦΞΙΝΚΕΧΦ; ΤΕ APS-"'"THEN 1229 

1230 IF АР$="Ү" OR APS-"y"THEN 479 

1249 IF APS-'"N" OR APS-"n"THEN END 


1259 СОТО 1239 РОМ, 
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\ —B8y- Jame s Ray 


oss of our American buying power due to 

inflation is something that we have all grown 

accustomed to expect. Regrettably, it is 
something that we all have to deal with as no one 
is able to escape its effect. 

Inflation is related to a number, or index, that 
the government gives on a monthly basis that 
reflects the increase (or decrease) in the average cost 
of certain goods and services. These goods usually 
include food prices, gasoline prices, housing costs 
and utilities. The changes in the cost of these goods 
are added together and averaged over the year to 
give us what we call “the annual inflation rate.” 

Between the years of 1972 to 1985, the annual 
inflation rate has averaged 7.3 percent. The highest 





James Ray is a minister at the Cooper River Baptist 
Church in North Charleston, South Carolina. 
Computer programming is a hobby along with 
woodworking and water skiing. James has also 
written several programs for the Tandy Color 
Computer. 
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Enhance your ‘Tandy Portable 


Your Radio Shack Model 100 
(26-3802, $499.00) or Tandy 200 
(26-3860, $799.00) are the heart 
of a complete computer system. 
We back both machines with all 
the extensive accessories to 
make them not only convenient 
portables, but powerful desktop 
tools, too. 


Get rapid disk storage 


The Tandy 200/Model 100 
Portable Disk Drive (26-3808, 
$199.95) gives you fast access to 
100K of data on 31/2” floppy 
diskettes. And since it’s battery 
powered*, you don’t have to 
leave your important documents, 
reports, spreadsheets, statistics 
and other vital data back home. 
You can take them with you 
wherever they’re needed. 


This portable drive may be 
small, but it’s not a toy. Menu- 
driven operation makes it easy to 


use. You can get a complete list 
of files for any disk. It features 
these powerful operating system 
functions: FORMAT, SAVE, 
LOAD, RENAME and BACKUP. 
A 19,200-baud data-transfer rate 
easily beats the speed of cas- 
settes. And you can choose bat- 
tery operation, or just attach an 
optional adapter to use AC 
power. And for today’s traveling 
businessperson, there’s a con- 
venient Portable Drive Case 
(26-3815, $24.95). 


Portable printing 

Like the Portable Disk Drive, 
the TRP 100 Thermal Ribbon 
Printer (26-1275, $299.95) is 
made to be used anywhere— it 
runs on both batteries* or AC 







power, and it only weighs 5!/e 
pounds. Heat from the super- 
quiet thermal head transfers 
high-contrast characters onto 
plain 81/2” paper. You can also 
use thermal roll paper without 
the ribbon for direct transfer. 


High-speed 
data communications 


One of the most exciting fea- 
tures of both the Tandy 200 and 
Model 100 is the built-in modem 
that lets you communicate with 
other computers over the phone 
line. Our Direct-Connect Mo- 
dem Cable (26-1410, $19.95) 
comes with one free hour on 
both the CompuServe Informa- 
tion Network and the Dow 
Jones News/Retrieval Service. 


with our line of accessories... 


Access news, weather, sports, 
business reports and more. Plus, 
you can communicate with your 
home or office desktop com- 
puter. It's a whole new world of 
applications power! 


When you're on the road, you 
can bypass direct connection 
with our Acoustic Coupler (26- 
3805, $39.95). It's a great way to 
keep in touch with your home 
office. And with our padded car- 
rying case (26-3811, $39.95), we 
make portability all it's supposed 
to be. 


Versatile Bar Code Reader 
The useful Bar Code Reader 
(26-1183, $99.95) is an optical- 
seanning device that's ideal for 
many uses, including inventory 
control, billing and couponing. 
Software drivers, callable from 
BASIC, allow you to read Uni- 
versal Product code, 3 of 9, Ples- 
sey and other bar-code formats. 





Real desktop power 


If you need more memory, 
your Model 100 can take up 
to three 8K RAM modules 
(26-3816, $59.95 each) for a to- 
tal of 32K. And the Tandy 200 
can take up to two 24K RAM 
modules (26-3866, $199.95 
each) for a total of 72K. 


It's easy to convert your 
Model 100 laptop computer into 


* the perfect desktop computer. 


Just pop in Model 100 legs 
(26-3812, $3.99) for the best 
viewing angle. Then plug in 
your computer using an op- 
tional U.L. listed AC adapter 
(26-3804, $5.95). 


Tandy . . . Clearly Superior" 


Stop by your local Radio 
Shack Computer Center and see 
the advanced technology 24K 
Model 100 and 24K Tandy 200, 
and take a look at our complete 
line of accessories and over 25 


software applications. With our 
commitment to advanced tech- 
nology, you'll find everything 
you need for professional, porta- 
ble computing power— for your 
desk or on the road. 


® 


The Technology Store" 


A DIVISION OF TANDY CORPORATION 
ma uS NE NS NN μη ИШ 


à Send me a 1986 
Computer Catalog. 


Mail To: Radio Shack 
Dept 86-A-137 
300 One Tandy Center 
Fort Worth, Texas 76102 


year of inflation during this period was in 1980 at 13.5 
percent and the lowest year during the same period was in 
1972 at 3.3 percent. 

I was interested in the relationship between my earnings 
and the effects of inflation on those hard earned dollars. 
Suppose you made $10,000.00 in 1972. What would you 
need to earn in 1986 to have the same buying power as in 
1972? The answer: $26,705.98. (Maybe this program was not 
such a good idea!) 

The inflation rate is a summary of the change in the cost 
of certain goods and services. These changes do not affect 
everyone in the same manner. For example, suppose in a 
given year, housing costs increase a whopping 15 percent. 
This 15 percent would be reflected in the annual inflation 
rate; however, for people not buying a house, it would have 
no direct effect on their buying ability. Likewise, should 
food costs increase dramatically, it would affect a household 
of seven more than a household of two. 

Operation 

The program menu will give you four options. The first 
option is a straight inflation application (see Figure 1). This 
application is used for the period between the years of 1972 
and 1985. You will be asked to enter the year to begin the 
application and the amount to be compared. The applica- 
tion is estimating a 3.7 percent inflation rate for 1985. When 
the exact rate is known, you can place it in Line 190 (first 
number). 

The second option is a projection application and you are 
not required to stay in the 1972 through 1985 range. With 
this application, you can begin with any year, end with any 
year, and select any inflation rate you choose. For example, 


suppose you want to estimate what you will need to earn 
in the year 2000 to keep up with inflation. Suppose you will 
make $26,705.98 in 1986 and you are estimating that the 
inflation rate between the years of 1986 and 2000 will 
average 4 percent (wishful thinking?). You will need 
$46,246.10 in the year 2000 (see Figure 2). Note that this 
is an estimate. 

This is an excellent application for insurance personnel 
who need to estimate future needs for their clients. 

Printing a hard copy of any of the charts is simple with 
the Tandy computers. When you have the chart or appli- 
cation on the screen that you desire, press SHIFT-PRINT to 
get a printout. 

The third menu option is a tutorial and gives some 
assistance with the program even though the program is 
very friendly and gives appropriate prompts. I like this kind 
of information in the program so you do not have to refer 
back to the magazine for instructions. 

The fourth option is the end option and not only ends 
the program but erases it from memory. If you are typing 
this in, be sure to save as you go along! 

The inflation rates used in this program were obtained 
from the U. S. Department of Commerce in Washington, 
as printed in News and World Report Magazine. 1 will 
admit that I have seen other figures mentioned when 
referring to the inflation rates. If you find other rates you 
want to use, replace the figures in Line 190. 

This program is available on PCM ON DISK or directly 
from me for $15. Contact me if you are interested in future 
upgrades. Write to 5065 Frances Avenue, N. Charleston, SC 
29406. Enjoy! 





The listing: 


19 'BY J. D. Ray 
2 ' 5965 FRANCE AVENUE 
39 ' N. CHARLESTON, S.C. 29496 


4g ' «C» COPYRIGHT JAN., 1985 
59 'VERSION 2.1 
60 KEY OFF 


79 CLS:COLOR 19,9,19:LOCATE 7,36:PRINT"INFLATION" 


89 FOR Z=1 TO 259 :NEXT Z 
99 LOCATE 9,39:PRINT"by" 
199 LOCATE 11,36:PRINT"James Ray" 


119 LOCATE 12,32:PRINT"5965 France Avenue" 





120 LOCATE 13,29:PRINT"N. Charleston, SC 29496" 
139 COLOR 12,9:LOCATE 24,34:PRINT"Copyright 1985"; 


149 FOR Ј=1 TO 956 :NEXT J 

159 CLEAR 199 

169 DIM INF(15),A(12),R(12),M(59) 
170 FOR X-1 TO 15 :READ INF(X):NEXT 


189 'INFLATION RATES LISTED IN 189 ARE FOR 1985-1972, IN THAT ORDER 
199 DATA 3.7,4.9,3.8,6.1,19.4,13.5,11.3,7.7,6.5,5.8,9.1,11.9,6.2,3.3,9 


299 Q-9 :D=9 : SIG=9 


219 H$-'4HHHEHR 4H :Р$="##.#":7$="$$+НН#,+ННЕ. жЕ" 
226 TO=" SAHE HH. HH": DS=" HHH. HH" I ES="### HE" 


239 STA$-"Actual Inflation" 
249 PRO$-"Projected Inflation" 
250 K$-"Application" 

269 YEARS$="" 
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270 CLS:COLOR 11,9,11:LOCATE 7,30:PRINT"Program Application" 
289 LOCATE 11,39:PRINT"<1> ";;PRINT ЅТАЅ 

299 LOCATE 12,39:PRINI"<2> ";;PRINT PROS 

300 LOCATE 13,39:PRINT"<3> Tutorial" 

319 LOCATE 14,39:PRINT"<4> End" 

329 LOCATE 16,39:PRINT" Selection $: " 

339 MENUS-INKEY$ :IF MENU$="1" THEN СОТО 379 

349 IF MENUS="2" THEN GOTO 679 

359 IF MENUS="3" THEN 949 

369 IF MENU$-"4" THEN 999 ELSE 339 

379 ‘Straight Application Routine 

389 CLS:COLOR 6,9: LOCATE 7,29:PRINT"Straight Application" 
399 COLOR 15,9: LOCATE 9,25:PRINT"Enter Year To Begin Application" 

490 LOCATE 19,31:PRINT"Between 1972-1986" 

419 LOCATE 12,25:INPUT "Enter Year (19xx): "; YEAR 

420 IF YEAR<1972 OR YEAR>1986 THEN LOCATE 15,22,0:COLOR 29,0:PRINT" PLEASE USE 
YEAR BETWEEN 1972 - 1986!":SOUND ON:NOISE 9,8,12:FOR CC=1 TO 1599:NEXT CC:LOCATE 
15,22:PRINT SPACES$(A0):COLOR 15,9:GOTO 399 

439 X-1986-YEAR :KK-X :YR-YEAR 

449 LOCATE 14,25:PRINT"Enter Amount To Begin Application:" 

459 LOCATE 15,25:INPUT "Amount $ ";A 

4660 AMSA 

4790 IF A< THEN LOCATE 18,25,9%:COLOR 29,9:PRINT"ENTER A POSITIVE AMOUNT - PLEASE 


":МОІЅЕ 8,8,12:FOR CC=1 TO 1599:NEXT CC:LOCATE 18,25:PRINT SPACES$(34):COLOR 15,9 


:GOTO 459 
480 CLS:COLOR 6,9,9:PRINT TAB(6) "DATE: ";DATE$;" INFLATION";" 
TIME: "; TIMES 
499 LOCATE 3,6:PRINT"Based On";:PRINT USING Z$;AM;:PRINT" in"YR;"the following A 
mount is Needed to Keep":LOCATE 4,6:PRINT"in Line with Inflation: (RATE listed 
is for previous year)" 
509 LOCATE 6,8:PRINT'"YEAR: RATE: INCREASE ADJ. TOTAL'":COLOR 15,9 
519 L=7 :N = 7 
529 I-8 
539 LOCATE L,N:PRINT YEAR,TAB(41);;PRINI USING Z$; А 
54 YEAR=YEAR+1 
559 I-A*INF(X)/199 :Δ-ΑΗΤ 
560 L-L*1l 
579 LOCATE L,N:PRINT YEAR,:PRINT USING H$;INF(X);:PRINT'"$",:PRINT USING H$;1;,:PR 
INT" "si PRINT USING Z$; A 
580 YEAR-YEAR4l :X-X-1 
590 IF YEAR>1986 THEN 619 
600 GOTO 559 
619 LOCATE 23,12:COLOR 24,9:PRINT"Hit «ENTER» for Menu";:LOCATE 23,35:PRINT'"Pres 
S <SHIFT> «PRINT» for Hardcopy";:COLOR 15,9 
629 ES=INKEY$:IF ES$-"" THEN 619 
639 GOTO 299 
649 FOR P-1 TO 599 NEXT P 
659 GOTO 299 
669 "PROJECTED INFLATION APPLICATION 
670 CLS:D=9 
689 PRINT TAB(34) “PROJECTION” 
699 LOCATE 3,5:PRINT"This is a Projection of the effects inflation will have on 
your dollars":LOCATE 4,5:PRINT"in the Future. You will need to enter the year t 
o begin the":LOCATE 5,5:PRINT"Projection, the Amount, and the Year to end the Pr 
ojection." 


799 LOCATE 6,5:PRINT"You will need to Estimate the Inflation Rate for the period. 


There":LOCATE 7,5:PRINT"are no year limitations to this application. “THIS IS 
AN ESTIMATE!!" 
71g COLOR 19,9:LOCATE 9,12:PRINT"Enter the Year to Begin the Projection: ";:COLO 
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URLS, Ø INPUT YR 
Kin COLOR 19,9: LOCATE 11,5:PRINT"Enter the Amount to be dead in the Projection: 
:COLOR 15,9:INPUT AP 

2: Л COLOR 19,0:LOCATE 13,14:PRINT"Enter the Year to end the Projection: '";:COLOR 
15,9:INPUT YS 

IAM FORON 10,9: LOCATE 15,2:PRINT"Enter the Average Est. Inflation Rate (Per Year 
$23 :GOLOR 15,0:INPUT RATE 

759 P-YS-YR 

760 FV=AP*(1+RATE/199)°P 

778 D=Ø: CLS COLOR 6,9:PRINT TAB(34) "PROJECTION"; t DATE: ";DATE$ 

786 LOCATE 5,17:PRINT"Beginning Year; " 

799 LOCATE 7,25:PRINT"Amount: " 

899 LOCATE 9,17:PRINT"Est. Inflation: " 

819 LOCATE 11,4:PRINT"Amount Needed in Year"YS; m” 

829. COLOR 15,9 

839 LOCATE 5,35,9:PRINT YR 

849 LOCATE 7,34,9:PRINT USING Z$; AP 

859 LOCATE 9,35,9:PRINT USING P$;RATE; : PRINT" $ per year" 

869 LOCATE 11,34,9:COLOR 31,9:PRINT USING Z$; FV:COLOR 15,9 

87g LOCATE 23,12:COLOR 24,9:PRINT"Hit «ENTER» for Menu";:LOCATE 23,35:PRINT"Pres 

s <SHIFT><PRINT> for Hardcopy";:COLOR 15,9 

889 ES-INKEYS:IF E$-"" THEN 889 

899 GOTO 299 
999 "END: ROUTINE 

918 CLS:PRINT:INPUT"Are you sure? Program will be ERASED!!  (Y/N) ";ED$ 

920 IF ED$-"Y" OR ED$-"y" THEN END:NEW 

939 IF ED$-"n" OR ED$="N" THEN СОТО 200 

949 CLS:COLOR 14,9,14:PRINT TAB(35)"INFLATION" 

959 LOCATE 3,1:PRINT" Thís program attempts to ΜΑΝ the user with the effects 
of inflation on your hard earned dollars. This program can be used in two 
ways: " 
969 PRINT" ":PRINT" 1) The Actual Application lets you see the effects of inflat 
ion between the years of 1972 - 1985. The annual inflation rates are lis 

ted with the application. The inflation rates used here were found in 
the 'U.S." | 

979 PRINT" NEWS AND WORLD REPORT Magazine :" 

989 PRINT " " 

999 L-1l :X2-14 

1999 FOR X1-1972 TO 1985:LOCATE L,12:PRINT X1;" ";:PRINT USING P$;INF(X2);:PRI 

NT"$":L-Lt1:X2-X2-1:NEXT ХІ I 

1919 FOR Sl=@ TO 14:TT=INF(S1)+TT;NEXT 

1026 TT=TT/14& :LOCATE 15,49:PRINT"AVERAGE: ΜΑΜΑ 39,9; PRINT USING P$;TT;:PRIN 

Tug" 

193g COLOR 14,9:LOCATE 23,35:PRINT "HIT «ENTER» TO CONTINUE"; 

1940 ES=INKEY$; IF E$="" THEN 1949 

1959 CLS; PRINT: PRINT” 2) The PROJECTION APPLICATION allows the user to use any y 

ear and any inflation rate to project future effects of inflation o 

n our American dollar. 

1969 PRINT:PRINT" 3) END will erase the program from memory." 

1979 PRINT: PRINT" Remember that Inflation rates are averages of the actual incre 

ases in certain consumer products. They reflect the average yearly cost RE fo 

od, housing, utilities, and other essentials." 

1989 PRINT; PRINT" ENTER years as 19XX and dollar amounts without commas.  Inflat 

ion rates should be listed as whole numbers. (5$ = 5, 7 1⁄2%= 7.5)" 

1999 PRINT; PRINT” For a print-out of charts, press «SHIFT» «PRINT» when the char 

t you want is on the monitor screen." 

1196 LOCATE 23,23:PRINT"Hit «ENTER» to Return to Menu" 

1119 ES-INKEYS:IF E$-"" THEN 1119 

1129 GOTO 299 
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(|| Subroutine City 


Add zip to your BASIC programs with 


the GW-BASIC compiler 


1000/1200/2000/3000 





Compiling BASIC Programs 


By Robert D. Covington 


a computer language, BASIC 
AS always seems to be looked 
down upon as a good lan- 


guage for developing programs. For 
some reason, if you tell some people 
that you wrote a program in BASIC, they 
seem to think that the program is not 
very good and operates at a slow speed. 

Of course, if you were to take that 
same program, make a few changes and 
compile it in C, FORTH, ADA, PASCAL or 
any other “respectable” language, these 
people would automatically think that 
the program is faster and more useful. 

Why has BASIC achieved such a bad 
reputation? From what I can tell, there 
are two main reasons for BASIC’s bad 
image. First, becasue of BASIC’s flexibil- 
ity, poorly structured programs can be 
created and will still work. When “pro- 
fessional” programmers look at the 
code, they are appalled by its lack of 
structure and assume that any language 
that could support such “trash” is 
automatically bad. I am not saying the 
non-structured programs are bad, just 
that they seem to be looked down upon 
by some programmers. 

The second problem with BASIC is 
that many think it is a slow language. 
Sure, when you are running BASIC in an 
interpreted mode, programs tend to run 
rather slowly. What most people seem 
to forget is that amy language runs 
slowly in an interpreted environment. 
Unfortunately, it is easy to forget that 
compiler BASICs exist since there are so 
many more interpreted BASICs. Fortu- 


Bob Covington has been a computer 
programmer and consultant for the past 
six years, most recently focusing his 
attention on both the Model 100 and the 
2000. He is also a technical writer and 
editor. Bob can be contacted at P.O. 
Box 37007, St. Louis, MO 63141. 
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nately, though, compilers do exist for 
BASIC that allow BASIC programs to run 
as fast or sometimes even faster than 
programs written in other high level 
languages. 

This brings us to, the topic of this 
month’s Subroutine City — compiling 
BASIC programs. To help exemplify the 
compiling process, I will describe in 
detail how to compile last month’s 
ЮВ11 database system. 

Before I get into the compiling, let me 
first make a few comments about DB11. 


DB11 Modifications 

Listing | contains a few lines of code 
that need to be added to the existing 
DBII subroutine module. Since this 
module was merged with each of the 
other modules in the database, all four 
main modules (MAIN.BAS, DBFORM 
.BAS, DATAMAN.BAS and PRINT.BAS) 
need to incorporate these changes. 

The easiest way to do this is to type 
in Listing 1 in BASIC, save the file in 
ASCII format (SRVE^CHRNGES 
.BRS^,8) and merge that file with the 
other DBI/J modules (LOAD’MAIN”, 
MERGE “CHANGES”, SRVE^MRIN^). Once 
this process is complete, the dummy file 
can be deleted. 

Listing 2 contains a few additional 
lines that need to be added to each of 
the individual DB// modules. 

In addition to these line additions, the 
DB11 module named PRINT.BAS also 
requires that lines 51100 through 51105 
be deleted. 

These changes to DB// serve three 
major purposes. First, the changes in 
lines 15 through 22 in each of the 
modules reduce the amount of memory 
needed to store array information and 
gives BASIC more room for string data. 
This in effect reduces the number of 
“garbage collections” (reorganization 
of the string space) and thus increases 
the system speed. Second, the changes 
in Listing 1 incorporate the new MS- 








DOS access subroutine into the DB// 
database system. The benefits of this 
new subroutine will be described later 
in this article. Lastly, the remaining 
changes fix a few bugs, typos and errors 
that were in the DB11 database system 
as published. 


The GW-BASIC Compiler 

While DBI/ operates at a usable 
speed in interpreted BASIC, the database 
does not have the "lightning fast" 
response time that really makes a pro- 
gram much easier to use. To give DB11 
the extra speed it really should have, 
the system needs to be compiled into 
machine language by a GW-BASIC- 
compatible compiler. 

Before I describe compiling DB11, let 
me stop for a moment and describe 
what compiling is and describe some of 
its pros and cons. 

Normally, when you type BRSIC or 
BRSICR at the MS-DOS prompt, a 
BASIC language interpreter is loaded. 
This interpreter is responsible for 
"translating" the BASIC code that you 
give it into code the CPU can under- 
stand. For every instruction executed, 
the BASIC interpreter must: 


9 Load the next instruction and 
check to see if it is a legal BASIC instruc- 
tion. 

€ If the instruction is not legal, it 
checks to see if it is a variable assign- 
ment. 

€ If the instruction is a legal BASIC 
command, it checks to see if the instruc- 
tion has any parameters and proceeds 
to convert them into something it can 
understand. For example, if you told 
BASIC to PRINT 3*5, it would convert 
the 3*5 into a binary representation of 
eight. 

9 BASIC then checks to see if the 
parameters that are needed to execute 
the instruction are all present and that 
they are within proper bounds. 
€ If the parameters provided are in 
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formula form, the interpreter not only 
has to interpret the algebraic formula 
but must also change all the variables 
to managable precisions before per- 
forming the calculations. In addition, 
since multiple precisions are supported, 
BASIC must determine which math 
routine is used for the precision cur- 
rently being used in the calculation. 

* Finally, BASIC executes the actual 
code associated with the instruction and 
then repeats this process until the 
program ends. Of course, throughout 
all of these phases of an instructions 
execution, the computer must check to 
see if the BREAK key is being pressed. 





As you can see, BASIC does quite a bit 
of work for each instruction it executes. 
A large percentage of this work ends up 
being used for checking syntax, con- 
verting data, finding variables, finding 
which instructions need to be executed 
and other overhead. 

When a program is compiled, how- 
ever, this overhead is greatly reduced 
and in most cases eliminated. During 
the compiling phase, it performs the 
following operations: 


€ It ignores remarks, extra spaces, 
tabs, etc., that make programs easier to 
read but use up space and time in 
normal interpreted BASIC. 

€ Performs all syntax checking asso- 
ciated with an instruction. 

€ Evaluates and optimizes as many 
algebraic formulas as possible. This 
means that instructions such as PRINT 
3*5 are automatically converted into 
PRINT В. 

€ Converts any constants to binary 
data. This means BASIC does not have 
to keep converting numbers to binary 
before evaluating instructions. 

9 Determines the precision used by 
each algebraic formula so that only the 
routines necessary to evaluate the for- 
mula in a particular precision are used. 
For example, when evaluating A%+B%, 
only the integer addition routines are 
added to the code. The resulting code 
does not have to check the precision of 
A% and B% and decide which math 
routine to use. 

€ Converts the BASIC instructions 
directly into machine language. This 
*pre-interpretation" allows the CPU to 
directly execute the BASIC code without 
it having to be interpreted by another 
program. This means that the time used 
to interpret the command is eliminted. 

€ GOTO instructions are directly con- 
verted into machine language jump 
instructions. 
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When the compiling process is com- 
plete, the compiler produces a machine 
language object module of the BASIC 
program. Because of the optimization, 
programs end up running five to 50 
times faster. Unfortunately, since most 
BASIC instructions require at least three 
to 15 bytes of machine language code, 
the compiled programs end up being 
quite a bit larger than their interpreted 
counterparts. 

Another problem with the Microsoft 
GW-BASIC Compiler sold by Radio 
Shack is that it is not 100 percent 
compatible with the interpreted BASIC. 
In most cases, these problems are 
caused by enhancements and usually 
can be circumvented. Some of the 
differences between the GW-BASIC com- 
piler and the interpreter are: 





i 






ΤΆΝΟΥ 1960... ...'. 





€ Strings in the compiler can hold 
32,767 characters instead of 255. Be- 
cause of this, the string descriptor for all 
of the strings used by the compiled 
BASIC program contain an extra byte to 
describe the string's length. Programs 
that use peeks to find the location of the 
string and programs that use machine 
language subroutines need to be 
changed to account for this. 

@ АП BASIC immediate mode com- 
mands such as LIST, RUN, EDIT, etc., 
are not supported by the compiler. In 
addition, the program instructions 
BLORD, BSAVE and ERASE are also not 
supported. 

@ The maximum number of charac- 
ters per line for the compiler is 252 
instead of 255. 

* Double-precision variables can be 
used in FOR/NEXT loops by the compiler 
unlike interpreted BASIC. 

* Double-precision numbers can be 
used with all math operations and 
transcendentals. 

€ Garbage collections are not as 
frequent. 

€ The CHRIN instruction's power is 
greatly reduced by the compiler. Most 
programs that heavily use overlays 
require quite a bit of reworking to work 
with the compiler. 

9 RUN now executes .EXE files in- 
stead of .BAS files. Since other compiler 
BASIC programs are also .EXE files, this 
change makes sense. This difference 
does require, however, that you either 
omit the .BRS extention on a RUN or 
change it to .EXE. 

€ The machine language to BASIC 
interfaces are handled differently with 
the compiler. These differences will be 
described later in detail. 
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@ All POKE, PEEK and USR instruc- 


tions must be preceded by a DEF SEG 
instruction to work properly in com- 
piler BASIC. This fact is very important 
and is not very well documented in the 
BASIC compiler manual. 





There are other, more subtle, differ- 
ences between compiler BASIC and 
interpreted BASIC, but the above are the 
most significant ones. 

The major incompatibility problem 
comes primarily with machine language 
subroutines. In interpreted BASIC, the 


first parameter (always a variable) 
specifies the address of the machine 
language program. Then, when the 
CRLL instruction is performed, a long 
CRLL is made to the address created by 
the last DEF SEG instruction and the 
variable specified in the CALL instruc- 
tion. 

With compiler BASIC, however, ma- 
chine language programs are integrated 
into the compiled BASIC object file with 
MS-DOS's LINK utility. 

To support this, the compiler assumes 
that the text following a CALL instruc- 
tion is the name of the machine lan- 


HOWARD 
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guage procedure (subroutine). This 
name is not a variable and cannot be 
treated as such in the program. For 
example, before compiling one of the 
subroutines that use my machine lan- 
guage access subroutine, the part of the 
program that locates the machine lan- 
gauge subroutine in memory for the 
variable after the CALL would need to 
be eliminated. 

To properly integrate machine lan- 
guage subroutines in the GW-BASIC 
compiler, the subroutine must obide by 
the following rules: 


9 The entire machine language sub- 
routine must be defined as a far proce- 
dure. The name of the procedure must 
match the name used after the CALL 
instruction in the BASIC program. 

@ The procedure/subroutine name 
needs to be defined as a PUBLIC refer- 
ence. 

@ The subroutine must be 100 per- 
cent relocatable (be able to be stored 
anywhere in memory) and require no 
modifications by the BASIC program. 
For example, the machine language 
access subroutine described in this 
column required that the interrupt 
number be changed by the BASIC pro- 
gram. This type of programming is 
illegal with the BASIC compiler. 

9 Any references to strings must 
support the 4-byte string descriptor 


instead of BASIC's 3-byte descriptor. The 
first two bytes of a string's descriptor in 
the compiler contain the length of the 
string and the last two bytes contain the 
address of the string in the current data 
segment. 

€ None of the segment registers must 
be modified by the machine language 
subroutine. In compiler BASIC, the code 
segment (CS) and data segment (DS) 
are almost always different but the 
string segment (ES) and the data seg- 
ment (DS) are usually identical. In any 
event, modifying the segment registers 
will almost definitely cause the com- 
piled program to crash. 

€ The BP register must be preserved 
by the machine language subroutine. In 
normal interpreted BASIC, BP should be 
preserved but it will usually not cause 
too many problems if it is destroyed. In 
compiler BASIC, however, there is no 
option; BP must be saved. To be on the 
safe side, BP should always be saved 
with either BASIC, 

€ String lengths should not be altered 
by machine language subroutines. In 
standard GW-BASIC, you might have 
been able to get away with modifying 








the string length, but in compiler BASIC, 
it causes many problems. A good rule 
of thumb for any GW-BASIC machine 
language subroutine is to use only BASIC 
to change the length of a string. One 
way of doing this is to return the desired 
length of the string to BASIC in an 
integer variable and use BASIC's LEFT$ 
to change the string's length. 

€ The machine language subroutine 
must abide by all the rules associated 
with a machine language subroutine in 
interpreted BASIC. For more informa- 
tion on these rules, see my July 1985 
installment of Subroutine City in PCM. 

9 The machine language subroutine 
must be assembled into an .0BJ file for 
linking with the compiled BASIC pro- 
gram. Because of this, machine lan- 
guage programs that are "hand as- 
sembled" or assembled with DEBUG 
must be re-assembled with the Micro- 
soft Macro Assembler (sometimes it 
seems like Microsoft is trying to mo- 
nopolize the compiler business). 


If the machine language subroutine 
can meet the above requirements, then 
installing the subroutine is usually fairly 
easy. Unlike interpreted BASIC, com- 
piler BASIC does not require that you 
load the subroutine into memory and 
locate its address. As a matter of fact, 
only the compiler and linker have any 
control over where the subroutine goes 
in memory. 


Compiling BASIC Programs 

The first step in compiling a program 
is usually entering and checking the 
program in interpreted BASIC. While 
interpreted BASIC is fairly slow, debug- 
ging is much easier and faster. Of 
course, if you are developing a program 
that eventually will be compiled, make 
sure not to use any instructions or 
features that are not supported by the 
compiler. Most importantly, do not use 
PEEKs and POKEs to find information 
from BASIC's internal system memory. 
АП of these addresses change or are 
eliminated with the compiler. If PEEKs 
and POKEs are used, make sure they only 
address MS-DOS system memory 
which usually does not change between 
languages or programs. 

Once the program is created and 
thoroughly debugged, check that no 
lines are longer than 252 characters and 
save the program in ASCII format. This 
is done using the SAVE ^filename^ ,A 
instruction in GW-BASIC. 

Next, return to DOS and execute the 
compiler. When the compiler starts up, 
it asks for the source, object and source 





listing filename. The source filename 
describes the BASIC program that is to 
be compiled. The object filename de- 
scribes the .0BJ file that is created by 
the compiler which will contain the 
machine language instructions for the 
BASIC program. The source list filename 
describes an optional listing that can be 
generated by the compiler during com- 
piling. Any compiling errors that are 
detected are printed on the listing along 
with the code compiled. In addition, 
this listing can optionally contain the 
actual machine language source code 
generated by the compiler for the BASIC 
program. This source code, while inter- 
esting, is usually very long and never 
needed for anything practical. 

In addition to these three prompts, 
the compiler supports 10 compiler 
switches that can be entered at any of 
the three compiler prompts. All of these 
commands begin with a slash and 
should be entered after any filename 
entry. The 10 compiler options sup- 
ported by the compiler are: 


— 


€ /4 and 7T — These switches are 
used for compiling programs that were 
designed to run under M-BASIC, Micro- 
soft's 8-bit computer BASIC interpreter. 

€ /Е and 7X — These switches are 
used to tell the compiler that error 
checking routines are used in the BASIC 
program. The ^E switch allows ON 
ERROR GOTO and RESUME line number 













instructions to be compiled correctly. 
The ^X switch allows ON ERROR GOTO 
and any RESUME instruction to be com- 
piled. If the ZE switch is used and a 
RESUME or RESUME NEXT instruction is 
encountered during compiling, the 
compiler generates an error. The only 
advantage of the ^E switch is that it 
generates less code than the ^X switch. 
In other words, do not use the ZX switch 
unless you need it. Programs that do not 
use any error checking routines and use 
neither of these switches tend to be 
noticeably shorter. 


€ “A — This switch tells the compiler 
to include the source code for the actual 
machine language instructions gener- 
ated during compiling on the source 
listing. This option is usually only used 
by true *hackers" who cannot sleep 
unless they know what the code gener- 
ated by the compiler looks like in 
machine language. In most cases, this 
option is not used since it creates a huge 
source listing. 

€ /D — This switch adds extra code 
to the compiled program to aid in 
debugging. When this option is used, 




















it automatically loads the BASRUN 


line numbers and bound checking 
(array and variable) code is added to the 
resulting compiled program. This 
switch must be used if you are using the 
TRON or TROFF instructions and if you 
want line numbers to be displayed when 
errors are detected. This option is great 
for debugging but should always be 
omitted in the final program since this 
switch increases the size of the compiled 
program. 

€ /N — This switch eliminates the 
need for line numbers on every line of 
your BASIC program. When this option 
is selected, line numbers are only needed 
for specifying locations for GOTOs, 
GOSUBS and other line-oriented instruc- 
tions. This switch is great for creating 
BASIC programs with the "structured 
look." The only problem with using this 
flag is that you cannot create BASIC 
programs without line numbers on 
every line in normal GW-BASIC. This 
means that you have to use EDLIN, a 
word processor, or a text editor for 
entering the program. If this option is 
used, make sure that all of the lines still 
use less than 252 characters per line. 

€ /R — This switch tells the compiler 
to store arrays in row-major order 
instead of column-major order. In most 
cases, this switch is never used unless 
you are converting a program from 
another high level language to the BASIC 
compiler. 

€ 75 — This switch tells the compiler 
to store strings on disk as they are 
encountered instead of storing them in 
memory during compiling. Normally 
when this switch is not used, text strings 
are stored in memory during the com- 
piling phase. If an identical text string 
is found, the compiler detects this and 
only writes one copy of the text string 
on disk when it finishes compiling. In 
most cases, not using this option will 
reduce the size of the resulting compiled 
program. The only time this option is 
used is when there is not enough me- 
mory in the system for the compiler to 
store the text strings and its own inter- 
nal data. In other words, the ZS switch 
is usually used to compile large pro- 
grams with little memory. 












€ /0 — This switch tells the compiler 
to use the BRSCOMG.L IB instead of 
the run-time library BRSRUNG . LIB. 
Normally, when this switch is not 
used, the BASIC compiler assumes 
that a program called BRSRUN 
G.EXE will be on the disk along 
with the compiled program. When 
the compiled program is executed, 
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Megabytes for Mini-Bucks 


Tandy 1000 Hard Drives 
by Hard Drive Specialist 


Shop and compare. Hard Drive Specialist has been 
building hard drive systems for years and have sold thou- 
sands of subsystems to satisfied Radio Shack/Tandy cus- 
tomers. We use the latest state-of-the-art disk drives and 
controllers. Our drives all use buffered seek logic and plat- 
ed media to result in almost one-fourth the average access 
times found on our competitors drives. Plated media 
results in longer platter life and high resistance to head 
crashes not found on coated media drives. We utilize high 
quality construction throughout including heavy duty 
power supplies and gold edge card connectors. Internal 
drive systems include an interface card and a half-height 
hard drive that replaces the top disk drive in both size and 
power consumption. External units include an interface 
card, case, power supply and hard drive unit. All units re- 
quire a memory board with DMA such as the TanPak" 
multifunction card, or a Tandy Board, Part #25-1004. 


Ordering Information 

Use our WATS line to place your order via Visa, MasterCard, or Wire Transfer. Or, mail your 
payment directly to us. Any non-certified funds will be held until proper clearance is made. COD 
orders are accepted as well as purchase orders from government agencies. UPS ground is our 
standard means of shipping unless otherwise specified. Shipping costs are available upon re- 
quest. Tandy and Radio Shack are trademarks of the Tandy Corporation. TanPak, is a trademark 
of Hard Drive Specialist, a division of Compukit Corporation. 


Мам Disk System Features: 


10 Megabyte Internal................ 
20 Megabyte Internal................ 
42 Megabyte Internal................ 
10 Megabyte External............... 
20 Megabyte External............... 
42 Megabyte External............... 








All sizes rated after formatting. 

One secondary drive may be added. 
Error checking and correcting controller. 
Software drivers included. 
Buffered seek drives for improved access time. 
Built in power up diagnostics. 
Plated media for long disk life. 
Gold connectors used throughout. 
1 year warranty. 

Boots directly from Hard Drive. 
Uses Tandy 1000 MS DOS. 


Hard Drive Specialist 
16208 Hickory Knoll 
Houston, Texas 77059 
1-713-480-6000 


Order Line 
1-800-231-6671 






G.EXE file into memory at the same 
time. This program is responsible 
for providing a set of common 
subroutines that can be utilized by 
the compiled program. For exam- 
ple, instead of the compiled pro- 
gram containing all of the code 
necessary to execute a PRINT state- 
ment, the program just executes a 
long CALL to the subroutine in 
BRSRUNG.EXE that contains all of 
the necessary code for executing a 
PRINT. Since all of the commonly- 
used subroutines for supporting 
BASIC instructions are in this li- 
brary, they do not need to be du- 
plicated in other compiled pro- 
grams on the disk. In most cases, 
using the runtime support module 











reduces the compiled program 
code size by up to 40 percent. 

Unfortunately, though, Micro- 
soft does not normally allow the 
BASRUNG.EXE module to be dis- 
tributed with programs developed 
with the BASIC compiler. This 
means that if you write a program, 
compile it on the Microsoft com- 
piler and sell it, you must pay 
Microsoft a royalty to use the 
runtime module. 

Luckily, Microsoft offers a way 
of "integrating" the routines that 
are in the BASRUNG.EXE file into 
your compiled program. To specify 
this option, you use the /0 com- 
piler switch which tells the com- 
piler to load all of the subroutines 
in BASRUNG.EXE that are used in 
your compiled program into the 
program at link time. While this 
makes the program much larger, 
the resulting program can be dis- 
tributed and executed by itself 
without paying Microsoft royalties 
for the use of the runtime library. 

If the ^0 option is used, be aware 
that the CHRIN, COMMON and CLERR 
instructions are no longer sup- 
ported by the compiler. This might 
mean that some programs need 
additional changes to work with 
the ZÜ switch. 








Once you have entered in the file- 
names and any compiler switches that 
you are going to use, the compiler 
proceeds to compile the program. Dur- 
ing compiling, the compiler will report 
any errors that it finds on the screen 
along with the line the error was found 
on. If the error is designated as a 
warning error, the error can generally 
be ignored. If the error is severe, the 
problem should be delt with and the 
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program recompiled before it is exe- 
cuted. 

After compiling, the . OBJ file created 
by the compiler needs to be converted 
into an . EXE file before the program can 
be executed by DOS. To do this, type 
LINK followed by the name of the 
compiled program, a plus (*), and the 
names of any machine language pro- 
grams that are to be used by the pro- 
gram. All names specified after LINK 
should not contain any extentions. For 
example, if you wanted to link the 
compiled BASIC program TEST.OBJ 
with the machine language subroutine 
library SUBS.0BJ, you would enter 
LINK TEST+SUBS. If no machine lan- 
guage subroutines are used by the BASIC 
program (horrible thought, isn't it), just 
type the program name (LINK TEST). 

When you press ENTER, the linker 
asks you a set of questions. In most 
cases, you can ignore these questions 
and press ENTER for each one. 

Once all the questions are answered, 
the linker utility merges the compiled 
program, the subroutine libraries in the 
BASIC compiler, and any machine lan- 
guage programs you use in the BASIC 
program into a single .EXE file. When 
the linking process is complete, the 
resulting program can be executed by 
entering the filename at the MS-DOS 
prompt. 

That's all there is to compiling. I 
know it may seem like a lot at first, but 
once you do it a few times, it becomes 
quite easy. Just remember, all the extra 
work is worth it when you consider how 
much faster your programs will run. 


Compiling DB11 

To "kill two birds with one stone" (so 
to speak), I will now describe how to 
compile the DB11 database system 
presented in last month’s Subroutine 
City. Hopefully, this will not only result 
in a compiled version of DB// but will 
also get you used to the compiling 
process. 

First, the machine language access 
subroutine used in DB// needs to be 
assembled into an .0BJ file. Listing 4 
contains the complete source for the 
new machine langauge access routine 
which should be entered with EDLIN, a 
word processor, or a text editor and 
assembled with The Microsoft Macro 
Assembler. The resulting .0BJ file from 
the assembler will be referred to as 
BIOS.0BJ for the rest of this article. 

If you do not have an assembler, 
BIOS.OBJ is included with the DB// 
database system on PCM On Disk. If 
you have this disk, you can skip assem- 


bling the program. 

Next, enter BASIC, load the MAIN. BAS 
module of the database and delete lines 
25, 50, 51, 52, 53205, 64000 and 65000. 
These deletes remove the code used to 
support loading and finding the ma- 
chine language subroutine used by the 
interpreted BASIC version of DBII. In 
addition, lines 64000 and 65000 are 
deleted since they contain commands 
that are not supported by the compiler. 

After the deletes have been per- 
formed, change Line 53210 to read: 


53210 CALL BIOS(1,AX%,BX%,CX%, 
DX%,BP%,S1%,D1%,SW%) :RETURN 
(Note: the * 1" was removed after the 
word BIOS) 


Change Line 53705 to read: 


53705 V! ZURRPTR(R$) :R'!—PEEK 
(V!+2)+PEEK(V!+3)*256:GOSUB 
53600 :DX*4=A%: RETURN 

(Note: the offsets inside the PEEK 
instructions were changed) 


This last program change compen- 
sates for the extra byte used by compiler 
BASIC to store a string’s variable des- 
criptor. 

After all of these changes have been 
made, save the program on disk using 
the command SRVE^MRIN.BRS",R. 
This will save the module on disk in 
ASCII format for the compiler. 

Next, repeat the above steps for the 
rest of the modules in DB// (DBFORM 
. BAS, DATAMAN.BAS and PRINT . BAS). 

Once all the BASIC programs have 
been modified and saved in ASCII 
format, exit to DOS by using the SYS 
TEM command and type BASCOM to load 
the BASIC compiler. The first question 
the compiler asks is for the source 
filename. For this, type MAIN (the . BAS 
extension is assumed), a space and ^X. 
The ^X option tells the compiler that all 
of the error handling capabilities of GW- 
BASIC are used by the program and that 
the extra code needed to support these 
routines must be included in the com- 
piled program. After you press ENTER 
for the first prompt, you should press 
ENTER for the remaining two prompts 
since they should default to the values 
you want. 

After all the questions have been 
answered, the compiler will compile the 
program, report that no errors occurred 
(hopefully), and return to DOS. If that 
is not what happens, look at the errors 
you received and make sure that the 
program was entered correctly. 

Once at the MS-DOS prompt, repeat 
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the compiling process for the remaining 
modules (DBFORM.BRS, DRTRMRN.BRS 
and PRINT.BAS). When compiling 
PRINT.BAS, however, use both the ^X 
and ^S options instead of just the ^X 
option. The ^S is needed since PRINT 
-BAS is so large that it cannot be com- 
piled in the computer's memory. 

When compiling all these programs, 
you will probably run into problems 
with disk space since the compiler, the 
BASIC programs, and their compiled 
counterparts all tend to be quite large. 
If you are running on a one- or two-disk 
Tandy 1000, you will probably need to 
use at least two disks. To help relieve 
some of the disk usage, you can delete 
the .BAS source file for each module 
after it has been compiled. 

Once all the programs have been 
compiled, you must link the compiled 
module and the machine language 
subroutine previously assembled into a 
single executable .EXE file. For the first 
DBII module, type LINK MRIN*BIOS 
(LINK.EXE must be on the current disk), 
and press ENTER for all the questions. 
Like everything else, this process should 
be repeated for DBF DRM. BRS, DATAMAN 
-BAS and PRINT.BRS. 

After all of these steps have been 
taken, you should end up with MAI 
N.EXE, DBFORM.EXE, DRTRMRN.EXE 
and PRINT.EXE on your disk. Also, 
before executing any of these modules, 
make sure that BRSRUNG.EXE and the 
database’s CDBRSE.PTR file is on the 
current disk. 

To run the database, type MAIN at the 
MS-DOS prompt and enjoy your new 
high speed database system. 


The New Machine Language Access 
Subroutine 

Throughout this article, I have made 
reference to a new machine language 
access routine. You are probably won- 
dering, “what does the new machine 
language access subroutine do that the 
old one didn't?" 

Actually the answer to that question 
is nothing. The new machine language 
subroutine is basically a duplicate of the 
original subroutine. The only difference 
between them is that the new one pre- 
serves the BP register and the new one 
can be compiled. 

The BP register is saved for two 
reasons. First, while interpreted GW- 
BASIC does not usually mind if you 
destroy BP, it can, in some rare instanc- 
es, hang up the computer. While the 
occasion is rare, I felt that adding the 
two bytes of code was worth the extra 
reliability. Also, since GW-BASIC re- 
quires that BP be saved, I added the 


66 PCM March 1986 


extra PUSH and POP to allow for com- 
piler compatibility. 

The other change in the machine 
language access subroutine is that the 
interrupt number used to access each 
MS-DOS function by the subroutine is 
no longer modified by BASIC. In the old 
version, a MID$ instruction was used to 
modify the machine language subrou- 
tine to access the desired MS-DOS 
function interrupt. Unfortunately, since 
compiler BASIC does not support this 
kind of self-modifying code, I had to 
find another alternative. 

The alternative I chose was to add the 
interrupt as another parameter to the 
CRLL and to perform the program 
modification in machine language. 
While this may seem to be an easy 
solution, it actually isn't. 

The problem comes in when the 
machine language program must mod- 
ify itself. Since the code is supposed to 
be 100 percent relocatable, there is no 
way of knowing where the machine 
language subroutine is going to be 
loaded in memory. If you look at the 
source for the machine language access 
subroutine in Listing 4, you can see 
what I did to alleviate this problem. 
Basically, I had the machine language 
subroutine CRLL a dummy subroutine 
inside of itself. The only function of this 
dummy subroutine was to return back 
to the instruction after the CALL. You 
are probably thinking that that is a 
useless subroutine. Actually, it is the 
key to the self-modifying code. When 
the CPU executes a CALL, it places the 
address of the instruction following the 
CALL on the stack. Then, when a RET is 
executed, the CPU jumps to the address 
on the stack and double increments the 
stack pointer. After the CALL/RET 
sequence has been executed, the address 
of the instruction after the CALL is still 
in the word just before the current stack 
pointer value. This address can then be 
used to find out where the program is 
in memory and thus allow the machine 
language subroutine to modify itself. 

If you look at the code in Listing 4, 
you will see that I also disable interrupts 
before performing this operation. This 
is done to insure that an interrupt is not 
executed during the process, which 
would destroy the memory below the 
current stack pointer. 

This method for finding the address 
of a machine language program in a 
relocatable environment is by far the 
smallest and easiest to use. If you are 
creating your own machine language 
programs for the compiler and need to 
perform self-modifying code, I would 





suggest that you use this method. 


Notes on Past Subroutine City 
Articles 

To use this new machine language 
subroutine with the subroutines pre- 


` sented in the last few installments of 


Subroutine City (August 1985 through 
December 1985), enter the code in 
Listing 3 into the existing subroutine 
code. 

If you wish to compile any of these 
subroutines, delete lines 20, 4010, 
50000, 50001 and 50002. Also, remove 
the *!' in Line 40020 (like Line 53210 in 
ЮВ1Г) and change Line 32010 to read: 


32010 V!-VRRPTR(RS$):R!-PEEK(V!. 
*2)*PEEK(V!*3)X256:G0SUB 31000 
:DXX-RX:RETURN — ` 


The assembled .08J file for Listing 
4 needs to be linked to any machine 
language programs that use the ma- 
chine language access subroutine. 

One last note to any non-Tandy 2000 
readers of this column. АП of the sub- 


, routines presented last year in Subrou- 


tine City were designed to run on the 
Model 2000. Any of the subroutines 
that use any machine language, though, 
should run on any MS-DOS machine. 

Unfortunately, any of the subrou- 
tines that use the keyboard require 
slight modifications for non-2000 ma- 
chines since the Tandy 2000 returns 
different ASCII values for the arrow 
keys and other special control keys. 
Fortunately, the only programs that 
have problems with this are the demo 
programs that accompany the directory 
read subroutine and disk zap subrou- 
tines, and the full screen editor and 
advanced input subroutines presented 
in the first installment of Subroutine 
City. 

A version of the full screen editor, the 
advanced input routine and another 
input routine that will run on all Tandy 
MS-DOS machines is given in the 
0811 .ВА5 module of DB// presented in 
last month's Subroutine City. In addi- 
tion, this subroutine package also in- 
cludes quite a few very useful subrou- 
tines that work on any MS-DOS 
machine. 

As for the directory read and disk 
zapper subroutines, their demo pro- 
grams can be converted to run on a 
Tandy 1000, 1200 or 3000 by changing 
the ASCII values associated with each 
key command. 


The Future of Subroutine City 
From this article forward, all of the 


programs presented in this column will 
be compatible with all Tandy MS-DOS 
systems. Since I now have a Tandy 3000, 
I will be able to check each program 
more thoroughly for differences be- 
tween the 2000 and 1000, 1200 and 3000. 

Also, all future subroutines will be 
checked for compatibility with the GW- 
BASIC compiler. This means that each 
month's subroutine will run “as is” with 
the compiler or will run with the 
changes specified in the article. This will 


Listing 1: 
Changes for all DBII modules 


25 RESTORE 59:FOR X-1 TO 118:READ A:BIOSS$-BIOSS$4OHR$(A):NEXT: XIPRECBIOSS) | 
Length: 118 bytes үү 
51 DATA 85,139,236,250,232,110,0,139,118,254%,251,139,95&,22,139, 31, 46, 136, 92, 56, nu 
139,94,6,255,55,157,139,94,8,139,63,139,94,10,139,55,139,94, 14, 139, 23, 139, 94, ΜῊΝ 
PLIF LES LS) 94, 29,139,7,139,94, 18, 139, 31,139,119,12,139,119,9,2925,33, 85, ‚83 n 
52 DATA 139,236,139,94, 19, 156,143,7,139,94,12,137,63,139,94,14,137,55; 139, 94, 18, ARMY 
23,139,94,2],137,15,139,94,24,137,7, 91, 139, 11g, 22, 137, 94, 2,139 1g. 16, 91, n i 


58 ' Program:biosd 


137, 
7,94 ,9,93,202,18,0,195 


52705 1-22:AX&-0:GOSUB 53299:DEF SEG:A=PEEK(VARPTR(AX%) ) :A$-CHRS(A):DEF. SEG: встр M 


EEK(VARPTR(AX$) +1) : RETURN 


provide greater support for those using 
compiler BASIC on their systems. 
Lastly, Subroutine City will continue 
to provide machine language subrou- 
tines for BASIC for at least the next three 
months. So far, I am planning ISAM 
subroutines and a high speed machine 
language sort subroutine for the next 
articles (I hope). I am also hoping to 
have another big program like DB11 
full of useful subroutines for the late 
summer or early fall issues of PCM. 


53295 XV=VARPTR(BIOS$) :BIOS!=PEEK(XV+1)+PEEK(XV+2)*256 
53219 CALL BIOS!(I,AX$,BX$,CX$,DX$,BP$,SI$,DI$,SW$):RETURN 


URN 


53705 VI-VARPTR(AS):DEF SEG:A!=PEEK(V1+1)+PEEK(V!+2)*256 : GOSUB 5369p: DXV-A: RET WR 


54519 LOCATE 25,1,9:PRINT LEFT$(SP$,89);:RETURN 


54615 COLOR. FD, BD: RETURN 












Listing 2: 
Individual module changes 
Changes to MAIN..BAS 








Changes to DBF ORM: BAS 


Changes to DATAMAN. BAS 















m 


50899 ' xxw Read directory 


29 DIM UC(255),SN$(255),RD$(2,255),S9T$(255) , RE(255) ,QN(255) 
22 DIM FS$(1),TP$(8),FT$(1),J(4) , RIS (2) 


15 DIM A$(255),B$(255),1(255),F$(255),L.(255),X(255),SP(255) ` 
20 DIM UC(255),SN$(255), RN$ (255), RD$(2,255),81$ (255) ; RE(255), QN(255) REUS 
22 DIM N$(255),FS$(1), TP$(8), FT$ (1),J(4) , F28(255) , 12(255),12(255) 81902). har 
3915 CLS:GOSUB 54399:PRINT TAB(25)"-=*=- Organize database pater GOSTB: 30399: 


15 DIM PX(255),PY(255),SF(255),8$(25),T(255), F$(255),1,(255) 
2g DIM UC(255),SN$(255),RD$(2,255),SL(255) 

22 DIM RS$(25),N$(255), FS$ (1), TP$(8) , FT$ (1) ,J(4) RIS (2) i mum 
3929 LOCATE 11,15:PRINT"Which drive contains the new database to select?" ТП 
7949. I$-"":XF-1:COLOR FH,BD:GOTO 7119 
15919 IF ND THEN GOSUB 55799:GOTO 699 


7929 LOCATE 11,19:PRINT"Which drive contains the source database?"; 


59895 I=33:AS=LEFTS(SP$, 43) :GOSUB 53799:AX$-6656:GOSUB. 53299 
59819 AX%=19968:CX%=9: PNS=D$+":*. FLD" +NL$:SWAP PN$,A$:GOSUB dici SWAP эӊ, As GO 
SUB 53299:N-9:E-AX$:IF E» THEN RETURN | 

59815 N-N41:X$-MIDS$(A$,31):N$ (N) -LEFT$ (X$, INSTR(X$, ".")-1) 
50820 AX%=29224:GOSUB 53299:E-AX$:IF E-18 THEN E-9:RETURN ELSE sus 


If you have any subroutines or ma- 
chine language programs that you need 
for your own application or would just 
like to see in this column, drop me a 
note and I will see what I can conjure 
up. Also, if you have any questions on 
any of Tandy's computers, drop me a 
note with a self-addressed, stamped 
envelope and I will try to answer your 
questions. O 
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Changes to PRINT .BAS 


/15 DIM A$(255),B$(255),T1(255), F$(255),L(255) 

5159 LOCATE 11,(89-LEN(OD$(X)))/2,8:PRINT OD$(X);:GOTO 5979 

14932 XY-CVI(LEFTS (RD$(1,RF(XF)),2)) : XM-ASC(MIDS(RD$(1,RE(XF)),3,1)): XD-ASC(RIG 
HT$(RD$(l,RF(XF)),1)):PRINT #4,USING FDS;RIGHTS(ZF$4MIDS(STRS(XM),2),2); "-";RIG 
HTS(ZFS4MIDS(STRS(XD),2),2);"-";RIGHTS(ZFS4MIDS(STRS(XY),2),4):GOTO 14959 


DELETE 51199-51195 


Listing 3: 
“Changes to MS-DOS access subroutine 


29 RESTORE 59999:FOR X=1 TO 118:READ A:BIOSS-BIOSS4CHRS$(A):NEXT:X!-FRE(BIOS$) 
49919 XV=VARPTR(BIOS$) : BIOS !1=PEEK(XV+1)+PEEK (XV+2)*256 

49929 CALL BIOS! (I,AX%,BX%,CX%,DX%, BP%,SI%,DI%,SW%) : RETURN 

59999 * Program: BIOS Length: 118 bytes 

50001 DATA 85,139,236,259,232,112,2,139,118,254,251,139,94,22,139,31,46,136,92,5 
6,139,94,6, 255,55,157,139,94,8,139,63,139,94,10,139,55,139,94,14,139,23,139,94; 
16,139,15,139,94,29, 139,7,139,94,18,139,31,139,110,12,139,119,9,205,33,85,83 
59992 DATA 139,236,139,94,19,156,143,7,139,94,12,137,63,139,94,14,137,55,139,94; 
18,137, 23,139,94,20,137,15,139,94,24,137,7,91,139,119,22,137,94,0,139,110, 16,91 
,137,94 ,9,93,292,18,9,195 


Listing 4: 
MS-DOS Access Subroutine Source Code 


PAGE 66,132 
TITLE  MSDOS Function call Accesser ** By Robert D. Covington 
SEGMENT 
ASSUME ^ CS:CODE 
PUBLIC BIOS 
PROC FAR 
PUSH BP ;Save BASIC's BP 
MOV BP,SP ;Make BP base pointer of stack 
; W** Self modifying code logic 
CLI ;Disable interrupts 
CALL DCALL ;Perform a CALL to find address 
MOV SI,[BP-2] ;Get address of ML subroutine 
STI ;Re-enable interrupts 
MOV BX, [BP+22] ;Get selected interrupt number 
MOV BX, [BX] 
MOV CS: [SI+56],BL ;Modify code 


» 
1 kw Variable to register transfer code 


MOV BX, [BP+6] ;Get descriptor for SW variable 
PUSH [BX] ;Move SW, [BX] 

POPF 

MOV BX, [BP+8] ;Get descriptor for DI variable 





¢heapware® Word Lists 
for the Tandy™ 1000, 1200, 3000 and compatibles 


All lists contain words of from three to fifteen letters stored in ASCII in the random 
file format on a double-sided diskette. A utility is included that will add, delete or change 
words and display any range of words in the list. 

Word List I (27,000 words, small letters only) 

Word List II (30,000 words, can handle capital letters) 

Word Sleuth (40,000 words, can match any skeleton such as ??ppy 
to words in the list) 


EDUCATIONAL/ENTERTAINMENT PROGRAMS FOR THE TANDY 1000 


Disk 1 Number Fun! (age 4-8) $15.00 
Disk 2 Kid's Adventures (age 4-10) $15.00 
Disk 3 Picture Puzzles (256K) (Child-Adult) $15.00 
Disk 4 Learning Graphics in Basic $15.00 
Disk 5 Games (age 4-99) $15.00 


Price includes postage and handling in the U.S. 


Foreign orders add $2.50. 


Send for free list & description of programs available. 
Not copy protected. 


sna) Ὀνίαν SO: DODESSOLISWARE 
- P.O. BOX 653 
(U.S. funds only) KENOSHA , ин. 531u1 


Price includes first class postage. VISA/MasterCard accepted. 


Information/Orders call: 
Robert L. Nicolai 800-NICOLAI (642-6524) 
4038 N. Ninth Street or 
St. Louis, MO 63147 314-621-7618 in Missouri 


Tandy is a trademark of Tandy Corporation 


CERTIFICATION 
SEAL 
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MOV 
MOV 
Mov 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
ΜΟΝ 
MOV 


DI} [BX]. ¿Put 
BX,[BP*19g] 
SI,[BX] ;Put 
BX, [BP*14] 
DX; [BX] ;Put 
BX, [BP+16] 
CX, [BX]; Put 
BX, [BP+2Z] 


variable in DI 

;Get descriptor 
variable in SI 

;Get descriptor 
variable in DX 

;Get descriptor 
variable in CX 

;Get descriptor 
AX,[BX] ;Put variable in AX 
BX, [BP+18] ;Get descriptor 
BX; [BX] ;Put variable in BX 
MOV BP), [ΒΡ112] {бес descriptor for 
MOV ΒΡ, [ΒΡ] ¿Put variable in ΒΡ 


} eee Execute MSDOS function 


variable 
variable 
variable 


variable 


INT 21H ¿Execute DOS function call 


; *** Register to variable transfer code 
PUSH BP ;Save BP for later 
PUSH BX ;Save BX for later 
MOV BP ,SP ;Make BP base of stack 
MOV ВХ,[ВР+17] ;Get descriptor for SW variable 
РП НЕ 
POP 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV. 
POP 
MOV 
MOV 


;MOV [BX]; SW 


[BX] 
BX,[BP412] 
[BX], DI ;Save 
BX, [BP+14] 
[BX],SI ;Save 
BK, [BP+18] 
[BX],DX ;Save 
BX, [BP+29] 
[BX] CX; Säve 
BX, [BP}24] 


;Get descriptor for DI variable 
DI in variable 

;Get descriptor for 51. variable 
SI in variable 

;Get descritor for DX variable 
DX in variable 

;Get descriptor for OX variable 
OX in variable 

;Get descriptor for AX variable 
[BX],AX ;Save AX in variable 
BX ;Restore BK 
ВР,[ВР+22] ;Get descriptor for BX variable 
[BP] BX; Save BX in variable 
ВР,[ВР+16] ;Get descriptor for BP variable 
BX ;Put old. BP Im BX 
[BP] ,BX ;Save BP in variable 
BP ;Restore BASIC's.BP 

;Return fixing for 9 parameters 


;Return Near 


Civilize the DISK/VIDEO INTERFACE * MAKE SAVAGE THE MODEL 100 
With DISK-BUDDY software for your DV/I, only function keys need touch your disk files! 


Twelve programs for one low price, work 
together to give the TRS-80 Model 100 unique 
disk file handling abilities. Access disk files 
from menu, just like a RAM file. Commands 
you were tediously typing become simple 
function key selections. And that's just part of 
the power of the DISK-BUDDY PAK. It does 
things you can't: 


* Create "superfiles" the length of the disk, 
over 170,000 bytes! 


* Print out, or display on either screen, or 
copy to disk or other device, a disk data file 
of any length, WITHOUT USING ANY 
ADDITIONAL RAM! 


* Furthermore, transfer records can be *'fil- 
tered”, an example: 


An address file on disk can contain more 
than 1300 entries. You can move to 
RAM, or screen, or printer, etc., those 


[AZAR SDUDDY рак Ἢ: ΡῊΗ 
DE EUM nd 


Lila LUGD COPY RUN NOME KILL ΚΟ} EXIT 


records which contain “California” and 
"Tennis" or whatever. Four logical 
modes of search are available. 





* Also: Features to run, load, save, sort, kill, 
measure, append, and name, disk files and 
RAM files, and much more. 


PCM Magazine (March, '85) said: “. 
excellent buy" . . . "manual is extremely 
well written" "will substantially 
increase the speed and ease of operation of 
the M-100 with the D/VI." PCM) 


That was the idea in the first place." 


TO ORDER THE DISK-BUDDY PAK 
(disk and manual): Send name, address, 
and check or money order for $39,95 plus 
$2.00 postage and handling to the address 
below. (For COD’s call: 212-243-2129) 


BuddySystems 
S 


. un 


220 West 24th Street 
New York, NY 10011 


March 1986 PCM 
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IIINII Barden's Buffer 1000/1200/2000/3000 


What Are All Those 
Strange MS-DOS 
Commands, Anyway? 


By William Barden, Jr. 
PCM Contributing Editor 


ere you go, Mr. Barden," the 
Н said, handing те a 

stack of magazines, brochures, 
bills, free samples and envelopes. “This 
stuff was too big for your mailbox. If 
this keeps up, I'm afraid we'll have to 
ask you to cut down on your subscrip- 
tions to computer magazines," he 
grumbled. 

“Yeah, sorry — maybe Ill just stick 
to PCM and RAINBOW and forget about 
Computers and Electronics, Creative 
Computing and Popular Computing,” 1 
smirked. 

I carried the stack into the house and 
started paging through it. Humm... 
brochure from Computing Clearing- 
house offering Timex 1000s for $12.95 
... latest copy of More Computer 
Supplies Catalog listing a 10 pack of 
diskettes on sale for only $59.95 . . . ad 
from a company for fake Tandy 3000 
labels to upgrade Tandy 1000s . . . ah, 
here's something interesting . . . 

What I’d seen was advertising copy 
from a company called 1000 Clowns 
Software. According to the ad, their 
new Utility Plus package would enable 





William Barden, Jr. is a master com- 
municator in a field in which he is one 
of the few recognized experts — micro- 
computers. A prolific author of more 
than 27 books on computers and com- 
puter programming, Bill also has au- 
thored several instructional software 
projects for Tandy| Radio Shack. 
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a Tandy 1000 to do these things: 


€ Search all disk files for a given 
string of characters. 

€ Pull out all records from a file that 
contained three items. 

€ Record the date and time on listings 
or disk files. 

€ Provide an automatic copy of only 
those files not previously copied. 

€ Alphabetize directories. 

ө And many more (they said). 


The interesting thing about this pro- 
duct was that every item in the list could 
already be accomplished in MS-DOS 
software on the Tandy 1000! Maybe you 
weren't aware that some of these things 
existed, or perhaps you had seen the 
MS-DOS commands, but just hadn't 
gotten around to using them. In this 
article, I'd like to show you the power 
of some of these commands and op- 
tions, especially the power and versatil- 
ity of batch files. I think you'll be able 
to find one or two that will really be a 
boon їс some of your Tandy 1000, 1200, 
2000 or 3000 operations. 


Adventures of a Different Sort 

One of the neatest pieces of utility 
software on your Tandy 1000, 1200, 
2000 or 3000 MS-DOS diskette is called 
SORT.EXE. We'll call it SORT for short. 
SORT is a "filter," meaning that it 
processes data that comes from a source 
such as keyboard or a disk file before 


it goes on to a destination — the display 
or another file. SORT operates on any 
ASCII (text) file, sorting the records in 
the file in alphabetized order. 


BASIC Sorting 

Suppose that you had generated a 
Radio Shack inventory file with a word 
processing program or BASIC that 
looked like the text in Example 1. 

We've included a rule on the bottom 
to help you count the columns. Each 
line is a record of data consisting of 
three fields. The first field goes from 
Column 1 through 35 and is a descrip- 
tion of the inventory item. The second 
field goes from Column 36 through 41 
and is the retail price. The third goes 
from Column 42 through 52 and is the 
part number of the item. 

To sort the records on the screen, 
you'd enter 


A>sort < parts.txt 


The results would be that in Example 
2. 


The sort program looked at the first 
column of each record and sorted the 
entire file before displaying the data on 
the screen. The MS-DOS command 
SORT told MS-DOS to search for the 
SORT.EXE program; MS-DOS assumes 
that the filespec extension would be 
.EXE, .COM, or a few other allowable 
extensions. 


To sort the list in reverse, the ^R 
option can be used: 


A>sort 7r «parts.txt 


The results are shown in Example 3. 


Another option that can be used is to 
specify the field for the sort. If you had 
wanted a list that was sorted by part 
number instead of description, you 
could have done this: 


A>sort Z+42 < parts.txt 


The results are in Example 4. 


Redirection 

As nice as the sort is, though, it's 
made a lot more useful by the ability to 
redirect standard input and output of a 
command. Instead of output of a com- 
mand result going to the screen, for 
example, you can specify that the out- 
put goes to a file. 

Taking that last example, again, if 
you had said: 


A>sort “+42 partsalp.txt 


MS-DOS would have sent the alphabet- 
ized list to file PARTSALP.TXT rather 
than the screen. Listing the file with 
TYPE would then display the alphabet- 
ized list as before. The “greater-than” 
character (>) indicates that output is to 
go to the device after it, whether it’s a 
file, line printer (PRN) or console screen 
(CON). 

The less-than symbol (<) indicates 
that input to the sort filter comes from 
the PARTS.TXT file. The default for 
input is from the keyboard, which is not 
as often used. In the keyboard case, no 
less-than symbol is required (see Exam- 
ple 5). 


The MS-DOS SORT command is very 
handy for general sorting of text data, 
in any field. It can also be used to do 
multiple-field sorting. For a long file, 
you could say something like the com- 
mands in Example 6, which would sort 
the file first by price, then by descrip- 
tion, and then by part number. The final 
sort would be in file 222223. 


Directory Listings and the Sort 
Piping 

An obvious use for SORT is to use it 
on disk directories, which tend to be 
long, disorganized and confusing, espe- 
cially when you have many diskettes or 
a hard disk. 

This command, 


R»dir sort 


for example, sorts the directory listing 


of the current disk (A:) and displays it 
on the screen. The | symbol (vertical 
bar) indicates that the output of one 
command is not to a disk file, but to the 
input of another command. (Really, 
what we're talking about here when we 
mention commands is programs, as 
many commands are represented by 
separate MS-DOS program modules.) 
This redirection is called *piping." 


More MS-DOS 

The MS-DOS masses cried for more 
MS-DOS convenience and that's what 
they got. One of the conveniences is the 
MORE filter (MORE.COM on your disk). 


assorted. 
"n oy, ‘Halloween II Meat AX! 
HiHi Book, 


mno Halloween bid Meat Ακ. m 95 


It's difficult to read at the rates text is 
displayed on the screen, and the MORE 
command allows you to read only a 
screen full of text at a time. This com- 
mand: 


R»dir | sort | тоге 


not only alphabetizes the directory 
listing, but displays it a screen-full at a 
time, like Example 7. 


Pressing any key now displays the 
next page of the data on the screen. 
MORE is another handy filter to use any 
time you don't want a large volume of 
text whizzing by on the screen. 


5 28-4567 
0126-7899 
‚9519-6749 


un 


lili to Use Your Model. mn 


1102-45671. 
10023267811. 
126-7899. 


GF 29-4367 


>sort m рана sg HIER 
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Note that in the above example, two 
piping symbols (|) were used to separate 
the MS-DOS commands. Multiple 
piping such as this can be done at any 
time. 


Another Fine Batch You've Gotten Us 
Into, Ollie! 

MS-DOS is irritating in its litany of 
commands! Not only are there more 
than enough ordinary commands to 
keep track of, but there are the three 
dozen permutations of SORT and MORE 
and a lot of other functions we haven't 
yet discussed. There is a solution to 
using all of these diverse commands, 
however — it's called a batch file. 

In case you're wondering about 
where the name “batch” comes from, let 
me give you a little background. In the 
very early days of computers ('40s and 
'50s), the room-sized computers oper- 
ated on one program at a time, and 
users considered themselves lucky if 
they completed the 8-hour computing 
task before the system went south. 
Shortly after, however, computer use 
became more efficient. Computing jobs 
were run by feeding in punched cards 
that represented the program and by 
also entering commands via punched 
card, rather than manually. Multiple 
jobs — a FORTRAN program, followed 
by Bill of Materials, followed by a 
COBOL compilation — were submitted 
in *batches" of punched cards to make 
efficient use of an expensive computing 
resource. The batch capability of MS- 
DOS is an offshoot of this batch pro- 
cessing — a complete set of commands 
can be defined in a single file, this time 
in a disk file rather than in a batch of 
cards. 

Batch files are collections of MS- 
DOS commands. All commands that 
are normally entered from the keyboard 
can be entered from a batch file. The file 
is an ASCII (text) file, so it can be 
produced by a word processor or by any 
other means of producing a text file. 
Batch files have the extension .BRT to 
tell MS-DOS that they can be executed; 
it’s not necessary to specify the .BAT, 
though, when entering the batch file- 
name to execute the commands. 

A simple batch file to sort the direc- 
tory and to use the MORE filter looks like 
Example 8. 

Here, the batch file is called DIRSM 
.BRT and contains a “remark” line and 
the commands for the sort. To execute 
this batch file, producing the sort that 
we saw above, you'd simply enter: 


A>dirsm 
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Creating Batch Files From the 
Keyboard 

The easiest way to produce short 
batch files is directly from keyboard to 
disk file by using the command 


A>copy con: dirsm.bat 


This uses the MS-DOS COPY com- 
mand to copy lines from the keyboard 
(CON: stands for “console,” another bit 
of historical computer jargon) to disk 
file DIRSM.BAT. (Here, the „ВАТ exten- 
sion must be specified.) 

After you've entered this command, 
the system will just sit there and stare 
at you, with a cursor on the line below 
the COPY. From that point, just enter the 
batch file lines, one at a time, ending 
each with ENTER. To end the file, press 
F6, or hold down the CTRL key and 
strike the Z key, and then press ENTER. 
(See Example 9.) 


REMARK and ECHO Commands 

The batch REM command can be put 
into the batch file as often as necessary. 
It is displayed as the batch file is exe- 
cuted and can be used to prompt the 
user. 

The ECHO command controls whether 
or not the batch commands are dis- 


Example 7 


ti 31 File(s) 
Directory of  B:N. 


Volume in drive B has no label 
“1-91-89 


1-91-89 ` 
4999 αρ 29. 84 


/$PIPEl | 
(SPIPE2 | 
ANSI 


Μι 
“LIBIA P 
SYS 


/KEYCNVT SYS. 


+- More -- 


Example 8. 
A>type dirsm. bab. 


‚ 292 10-20-84 


played. If an ECHO OFF is included in the 
batch file, all batch commands follow- 
ing the ECHO OFF will not be displayed. 
When an ECHO ON is executed, the 
display will restart. The exception to the 
ECHO OFF condition, though, is an ECHO 
command with a message included. 
Example 10 is a sample batch file for 
copying all BASIC files from Drive A to 
B. 


Note here that while the command 
itself is not displayed when echo is off, 
the output from the command is dis- 
played, as was the listing of files from 
the COPY command here. ECHO is some- 
what neater than the REM as there is no 
A> prompts cluttering up the display. 
ECHO without following text will display 
the state of the ECHO, ON or OFF. 


echo 
ECHO is on 


The PAUSE Command 

The batch PAUSE command is self- 
explanatory. It’s used after a message to 
the user so that he or she can take or 
confirm some action. Pressing any key 
except CTRL-C causes a continue of the 
batch action. (CTRL-C stops the batch 
action at any time.) PAUSE can also have 
a message after the PAUSE command. 


Hi 58368 bytes free 


(6:86 
6:96a. ή 
d jj) 


"ug : ўр і | 





rem This is a oni base Eligii 


dir | sort | more. 


| Example 9 


j A»copy con: DU TH Ait 





(rem This is a simple „| file <ENTER> ШШ 
dir | sort | more | ENTERS | HATH 
«ες» «ENTER» | 





Models ΙΙΙ 4 4D 4P 1000 1200 
Computer Aided Drafting 






























Save time and increase productivity 
Excellent system benefit / cost ratio 
Drawing sizes up to 24" x 36" 

Full size overlays 

Direct and auto zoom and pan 

Decimal and "customary" scaling systems 
Full inch and fractional grids 

Cursor snap to grid or intra-grid 

Variable cursor speed control 

Single key functions from keyboard 
Mnemonic function symbols easy to learn 
Single operating mode at all times 
On-line function summary, memory alert 
Accuracy up to 1/100 of an inch 

Digital (coordinate) input functions 

Block reduce / enlarge 1% through 9999% 
Block rotate 1 through 360 degrees 

Block mirror / rescale 
Merge, rotate, rescale drawings EE DA Gane «ἰχ--- 
Save / load drawings to / from disk CORN | поета пота 
Cut out and save parts of drawings | 
Text labels full upper / lower ASCII 
Text duplication saves memory / typing 
Left justified "typewriter" text option 
Precision plotter output 

Hardcopy reduce / enlarge 1% - 999996 


gown) š 


Se s 


adi 


Computer Aided Drafting systems 4» 
for 

architects, engineers, educators, MICRODEX | 
manufacturers, builders, students ... 1212 North Sawtelle 


Tucson, Arizona 85716 
Phone (602) 326-3502 


Batch Parameters 
So far, we've discussed the following 
batch commands: 


€ REM — for remarks. 
€ ECHO — for turning display on and 
off and remarks. 
€ PRUSE — to temporarily suspend 
the batch operation for 
some manual interven- 
tion. 


By themselves, these commands will 
allow you to construct a large number 
of predefined batch files that would 
guide a novice user in the proper se- 
quence of steps (rem Put Disk marked 
“BOOKS1” in upper drive, etc. . .) or 
that you would find convenient simply 
because it's much easier to remember 
DIRSM than DIR | SORT 7*5 | MORE. 
However, in addition to these batch 
commands, there are four more that 
come in handy. They are: 


€ IF — To test а condition. 
€ GOTO — To alter the path of the 
batch commands. 
€ FOR — To set up repeat of com- 
mands. 
€ SHIFT — To allow many command 
parameters. 
€ SET — To change command pa- 
rameters. 


In fact, these commands actually 
define a mini “programming language” 
that allows you to construct short, 
useful operating system programs. To 
understand how these four commands 
work, you need to know about replace- 
able parameters. 

When a batch file is referenced by 
entering the name of a batch file, it’s 
possible to include up to 10 parameters 
for use in the batch file. These parame- 
ters can be filespecs or simply text 
strings. They can’t include embedded 
blanks, as blanks are used to separate 
(delimit) one parameter from the next. 
Example 11 is a typical set of parame- 
ters: 

There are two parameters here, 
AT120985.PCM and AT111085.PCM. 
Within the batch file the parameters are 
referenced by the symbols X0, %1, %2, 
%3, %4, %5, %6, %7, ХВ and %9, corre- 
sponding to the position in the line, with 
%0 always representing the batch file- 
spec itself. In this example we’d have: 


%0 = SWAP 

X1 = RT120985.PCM 
%2 = RT1110885.PCM 
X3 - %9 = nothing 
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Another example can be found in Ex- 
ample 12. 


In other words, all MS-DOS does is 
to substitute the parameter for the 
“dummy” parameter of %@ through %9 
in the guts of the batch file. 

The example before this, SWAP . BAT, 
a batch file that would swap two file- 
names, would look like Example 13 in 
expanded form. 


In this case MS-DOS substitutes 
PROG1.BAS every time it sees %1 and 


PROG2.BRS every time it sees %2. The 
REN (rename) commands become 


REN PROG1.BAS 222221 
REN PROG2.BAS PROG1.BAS 
REN 222221 PROG2.BAS 


The 222221 file, by the way, is simply 
a dummy file that is used for temporary 
storage. 


The IF Command 
The batch IF command allows you to 
test one of the replaceable parameters 





good & all L PROGI, BAS fer tin 


* 


and then to alter the sequence of the 
batch file commands. Without an IF, 
batch files would consist only of a series 
of statements to be executed one after 
another, and that sequence would never 
change. 

Both a string comparison and a file 
comparison can be made with IF. The 
file comparison is shown in the modi- 
fication of SWAP in Example 14. 


The first thing you'll notice after the 
IFs is that there are some strange 
looking names with colons in front of 
them. These names are IF / БОТО labels. 
After all, if you're going to alter the path 
of execution in the batch file, you must 
specify where the next batch command 
is, and the labels define those locations. 
Labels can be one to eight characters 
and are never displayed during batch 
file execution. 

Either the GOTOs or IFs cause the path 
of execution to be altered. The IFs are 
similar to BASIC IF ... THEN state- 
ments, while the GOTOs are similar to 
BASIC GOTDs. 

The IF commands test to see whether 
a file EXISTS or does NOT EXIST. In this 
case we're trying to find an existing file 
that can be renamed, but also trying to 
check that no filename already exists 
with the new name to be given. Note 
that the filename is after the EXIST or 
NOT EXIST. 

The EXIST and NOT EXIST conditions 
can be used often in batch files to check 
not only for user files specified in the 
parameters list, but also to see whether 
the program modules exist for the batch 
commands themselves. The commands 
in Example 15, for example, test 
whether SORT.EXE is available for a 
batch operation: 

The second type of test that the IF 
statement can make is a test of equality 
or inequality of a string of text charac- 
ters. Before looking at this, though, let's 
look at another MS-DOS filter, the 
FIND filter. 


Finding Everything on Disk 

The MS-DOS FIND command works 
through the FIND.EXE module. It 
searches a file for any string of charac- 
ters. To find the character string *one 
Tandy 1000 equals ten PC jrs" in file 
RT101285.PCM, for example, you'd 
have the command and results in Exam- 
ple 16. 


The string defined for the search must 
be exact — there is no compensation for 
the difference of upper- and lowercase 
characters. The string must be enclosed 
in double quotes. 

There are several possible options in 
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this command. The ^V option displays 
all lines that do not contain the string. 
The ^C option does not display the lines, 
but only counts the number of occur- 
rences of the string. The ^N option 
displays the relative line number ahead 
of the line from the file. 

The MS-DOS FIND command is 
probably even more useful than SORT, 
as it can be used to search directories for 
filenames or types of files or to search 
all disk files for a string, as we'll see. 

To illustrate how powerful this can be 
when coupled with a batch file, look at 
Example 17. It finds all files on a disk 
containing a given string — even a hard 
disk organized with subdirectories: 

This batch file is called by F INDFILE, 
followed by a drive specifier, followed 
by a string. The string might typically 
be .ВА5, for all BASIC program files, or 
„5'5, for all system files. 


»Rfindfile c: .BAS 


for example, would display all files on 
a hard disk that were BASIC program 
files. MS-DOS would substitute the %2 
parameter, in this example .BAS, into 
the FIND command to produce 

find ".;BRS" zzzzzl| more 
Back to the IF Command and String 
Comparisons 

Listing 1 shows an interesting batch 
file that uses both the FIND command 
and IF string comparisons to search 
multiple fields in records. Suppose, for 
example you had records consisting of 
names and addresses as in Example 18. 

You could use this batch file to find 
all Smiths that lived in Texas (TX), or 
to find a Smith living in Wisconsin on 
Oak Street. F INDMULT is called by the 
name, the filespec, and from one to 
three arguments, representing three 
FIND strings. If less than three argu- 
ments are used, a dash replaces the 


latter arguments. A typical call might 
be: 


A>findmult maillist.txt Smith 
WI бах 


More about this next time, when we 
continue with batch files and some hints 
and tricks that will amaze and amuse 
your friends at Tandy 1000 user group 
meetings. Included in next month's 
column will be a batch file memo pad, 
a date/time recorder, and batch files 
that will enable you to organize and list 
all files on your floppy or hard 
disks. ΠΠ 
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Example 16 


A>FIND "one Tandy 1999 equals ten PCjrs" AT191785.PCM 


FIND would search the 87101785 .РСМ for the string and display all lines 
containing the string: 

AT191785, PCM | | i 
one Tandy 1999 equals ten PCjrs". He actually said this:| 
"I think one Tandy 1999 equals ten PCjrs or two PCs.” 


Example 17 


echo off i 
rem i жек F INDF ILEAK RYH 

rem Finds all filenames containing a given ybi 
rem Syntax: FINDFILE drive string 

tree $1 /f > 222221 

find "$2" zzzzzl | more 


Example 18 


David 
John 


Bunzel 
Smith 


1856 71st St. 
414 Oak ^. 


Fort Worth TX 
Wausau WI 


. and so forth, for hundreds of entries 


The listing: 


CLS 
echo off 
echo 
rem 


IKE INDMULT Hoe 

Finds file lines in which there are several fields. 
rem Syntax:  FINDMULT filespec stringl string2 string3 
rem Use dashes if no string 
if exist $1 goto nextl 

echo File does not ШИН 
goto done 

;nextl 

find /n "$2" $1 >772221 

if $3 == - goto done | 

find /n "$3" 222271 »222222 

if $4 == - goto done 

find /n "$4" 722722 2222223 

:done 

if $4 == - goto typed | 
type ZZZZ223 
goto endb 

itype2 

if $3 == - doa typel 

type 222222 
goto endb 

:typel 

type 222221 

:endb 

echo Done with FINDMULT 

echo on 
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1000/ 1200/ 2000/ 3000 


A Batch of New 


his month, I will look at two 
| *problems" associated with the 
use of MENU.COM which were 
identified by several readers. The first 
problem involves depleting the MS- 
DOS program environment (more ex- 
planation later) and the second problem 
concerns the use of secondary menus. 

I have been overwhelmed by the 
response to my Menu program. If you 
haven't received the demo disk yet and 
are still confused, the offer of sending 
me a prepaid disk and mailer is still 
valid. 

As always, Murphy has done it again. 
I stated in the Menu articles that there 
was one limitation on using Menu but 
I really did not think that anyone would 
encounter it, and I did not elaborate on 
the subject. One of the very first replies 
to my demonstration disk was on this 
very topic and I now feel some further 
comments are required. 


Environmental Problems 

One reader reported receiving an 
obscure error message — "Out of En- 
vironment Space" — which is not doc- 


John B. Harrell, III has written for 
microcomputer magazines for three 
years. He holds a bachelor's degree in 
computer science and is a software 
technical expert for Navy electronic 
support measures systems. 


Ideas 


By John B. Harrell, IH 


umented in the Tandy MS-DOS refer- 
ence manual. He was attempting to use 
batch files linked to the Menu to set 
complex search paths prior to running 
his application. 

When MS-DOS is first loaded, the 
“Basic Input/Output System" (BIOS) is 
retrieved from the disk by the “Boot 
ROM” and executed. The initialization 
phase of this code is responsible, among 
other things, for loading the MS-DOS 
system. Once MS-DOS is loaded, part 
of its initialization code is responsible 
for loading and executing the DOS 
command processor (COMMAND . COM). 

The command processor constructs a 
programming "environment" table 
consisting of information such as its 
location and the current path. This area 
may be as large as 32K, however, it is 
usually limited to around 128 bytes. A 
pointer to this environment table is 
established for each program executed 
for the DOS command prompt. 

This is where Menu and our limited 
space problem come into play. You may 
change any of the information in this 
copy of the environment table but you 
cannot extend its length beyond that 
established by COMMRND.COM prior to 
executing the program. 

A program executed from the DOS 
prompt is generally known as the “par- 
ent process" and may execute other 


programs generally called “child pro- 
cess.” This is how Menu works. In 
writing the code for Menu, I made the 
decision to only pass the environment’s 
pointer to the child process. This means 
you are working on a copy of the 
environment constructed by COMMAND 
.COM. This is an important concept to 
understand. 

In plain English, this means you can 
do anything to the environment in the 
child process. All will be forgotten and 
returned exactly to the starting state 
when the child process terminates. 
Within bounds of the original environ- 
ment, here’s how we get around the 
limitation encountered by a few readers. 

In my first article text, I provided a 
sample AUTOEXEC file that set a long 
path name and along command prompt 
string. You can redefine this path name 
to whatever you desire in the batch file 
and it will automatically be reset when 
you exit back to the menu. Similarly, 
you can release the prompt string space 
by entering the DOS command PROMPT 
and pressing ENTER to return the 
prompt to the familiar A> and it will be 
restored when the child process is 
terminated. 

The key point here is that I reserved 
space for these features of the system by 
installing them as the first commands 
executed by the system on startup. If 
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you find you need more space than this 
normally reserves, set up a “dummy” 
environment variable with a string to 
reserve the space and release it in your 
batch files. The commands are: 


SET DUMMY=01234567890123456789 
01234562B9ENTER 
SET DUMMY=ENTER 


This first sets an environment varia- 
ble DUMMY to a string containing 30 
characters. The second command to- 
tally releases this string space and 
removes the name DUMMY from the 
environment table, freeing up a total of 
37 bytes of space (five for the name, one 


for the equal sign (=), 30 for the string 
and one for the 00H terminator byte). 

I think this will solve most of those 
problems but Murphy could strike 
twice. If you think this particular 
“brand of lightning" is leaking through 
your surge suppressor, write to me and 
provide the specifics of your problem. 
Send me a self-addressed, stamped 
envelope with your letter for the reply. 
I will gladly answer all requests con- 
cerning Menu's operation. 


Menus, Menus and More Menus 

The second inquiry concerned using 
a second (or third) level of Menu. I 
really did not anticipate this in my 


original program design. It is easy to 
completely fill a 10-megabyte hard disk 
while attempting to install 10 useful 
applications for Menu. My IBM-PC is 
continually on a "diet" to maintain 
approximately 10 to 15 percent free 
space on the disk. 

Changing Menu (and MENUINST 
.BAS) to accommodate this will require 
some radical changes in a few areas. If 
you have not obtained the assembly 
source code, these changes will not be 
possible. If you have, follow the ensuing 
discussion and I will point out areas that 
require change. 

First, you must add a new “perma- 


Figure 1 


| Two-Level Sub-Menu Batch Files 


A-BAT 
echo off ИНН 
cls 
echo 


echo 


echo Two options are ‘ourvently available: 


v CHECK THIS! 


~ MY WORD!® is a full-featured word processor 
with mergeprint, calculator, macros, undelete, 
utilities, graphics, sort; supports any printer. 
Printed, 180-page manual; faster than WS, with 
many new features. Price: just $35! 

м SCC is a spelling checker; see your errors in 
context and correct them. Add new words any 
time. Price: just $25! 

MY WORD! and SCC run on IBM PC, Tandy 
1000/1200/2000, Sanyo 550/555 or higher with 
DOS 2.1, 128K, one drive. 

v THE CREATOR: a database program and 
report generator. Sorts up to 50 keys! 200 fields, 
2816 bytes/record. Select records for use with 
MY WORD!! and print labels or letters. Price: only 
$45! 

v THE CREATOR runs оп ІВМ PC, Tandy 1000/ 
1200/2000 or most compatibles. (Not available 
for SANYO BASIC). 

30-day money-back guarantee; return for 
refund if not satisfied. 


T.N.T. SOFTWARE, INC. 
34069 Hainesville Road 
Round Lake IL 60073 
(312) 223-8595 
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nent" menu option allowing a full 





echo This is a test of the sub-nenu options | fron a ba eh fi 
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echo 
echo 
echo 
echo 
echo 


l. Assigned task number 1 


2. Assigned task number 2 


echo Answer the following question with a "Y" or an "N" for the 


option 


echo you choose to execute. 


yesno 


Do you want to execute option 1: 


if errorlevel 1 goto yanswer 


noption 
;уапзуег 
yoption 


NOPTION.BRT 


echo off 
cls 


echo You have selected the "No" or second option on the Bub -menu 
echo previously displayed. 


echo 
pause 


YOPTION.BRT 


echo off 
els 


echo You have selected the "Yes" or first option on the sub-menu 
echo previously displayed. 


echo 
pause 





terminate and exit from Menu. You can 
currently do this by using the CTRL-C or 
CTRL-BREAK combination (only if 
BRERK is enabled using the DOS com- 
mand or the CONF IG.SYS command). 
This revision requires changing the text 
of the displayed menu options, chang- 
ingthe coding in the main program loop 
and changing the option display loop. 

Second, you must make changes to 
the installation program to accommo- 
date these new "permanent" options. 
This is really too hard; especially when 
you consider the memory costs for each 
level of menus. Each menu structure 
loaded requires a separate copy of MENU 
and COMMAND . COM. This requires about 
24K for each menu level — not too 
much by today's standards, but it is 
significant and must be considered. 

An easier solution would be to use 
limited batch files for these sub-menus 
and this is the crux of the second 
problem. In previous applications, 
these batch menus would display some 
text and exit to the DOS command level 
to await your entry. This entry would 
subsequently execute the correct batch 
file to carry out the task. This process 
was required because MS-DOS lacks a 
very important feature: the ability to 
ask for and receive user input during 
batch execution. 


Figure 2 Three-Level Sub-Menu Batch Files 


B.BRT 


This is а test of the sub-menu options from a batch file | 
Three options are currently available: 

1. Assigned task number 1 

2. Assigned task number 2 

3. Assigned task ἡ 3 


echo Answer the following menu option prompt with the appropriate 
echo option number: 

123opt 

if errorlevel 3 goto 3opt 

if errorlevel 2 goto 2opt 

:lopt 

1 

:20pt 

2 

{Зор 


|. 1.BRT 


echo You have selected the first option on the sub-menu 
echo previously displayed. 
echo 





pause 
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Attempting to end a batch file and 
wait for user input will not work if the 
batch file was executed from Menu. 
When I cause the appropriate menu echo off 
option to be executed, I load a second | ¢ls | А 
version of COMMAND . COM to process the ‘echo You have selected the second ΜΗ: on: the sub-menu i 
batch commands and then tell it what | echo previously displayed. HHH 
batch file to execute. In the parameters echo 
to COMMAND.COM, I have not specified pause 
that it must remain permanently resi- 
dent, so it terminates and returns to 
Menu when the batch file is done. : 

Look at Figures 1 and 2. These are PERO: eut 


examples of a two-level sub-menu and i | 
а αγ ἠο-εψεῖ (three) sub-menu. The echo You have selected the third option ‹ on the ub pid 


two very short programs used in these | 8630 previously dis rte tit 
batch files display an appropriate mes- | echo i 
sage, ask the user for a proper input, | pause 
and post this result to the operating 
system as an error code return from a |: 
child process. Figure 3 

This error code can be examined by ‘Creating YESNO COM 
the batch procedure using the DOS IF 


command and the special condition — 

ERRORLEVEL. The command syntax is |: CAE EEA pla E NPO ΜΉΝ ИНИНЕН. | 

ui гоа, File not found;Disregard error message 
Mod Begin ipii at address side 


cls 





IF [NOT] condition command 
XXxx: 9192 mov Pu 11; Set message irit. 


This means that the command willbe |: XXXK:9195 int 21;Issue MS-DOS function request | 
executed if the condition is evaluated as XXXX:9197 mov ah,8;Set function = get keystroke. 
“true.” In my example, I compare the 
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Send for our Free Catalog or order by phone, by 
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DOS error code (ERRORLEVEL) to a 
known condition. DOS will execute the 
command (a GOTO command) if the 
error code is greater than or equal to the 
specified value. This last distinction is 
important and must be considered when 
writing batch files as this ultimately 
determines the order of the conditional 
statements. 

You may nest the batch procedures to 
any level as long as the last command 
executed in a batch file is the name of 
the next batch file. In other words, you 
cannot return to the calling batch file. 
When the last batch command has been 
executed, COMMAND . COM will still termi- 
nate and return you to Menu. 

Now, let's examine the two short 
programs contained in figures 3 and 4. 
These programs perform the simple 
task of displaying a prompt message, 
asking for your response, and returning 
a coded value to the operating system. 
This value is established as the value of 
the ERRORLEVEL condition that may be 
tested by the DOS commands. 

Program YESNO allows the operator 
to respond with either a Y or N character Fi 4 
signifying “уез” and “по” respectively. ΜΕ f 
The “yes” response is coded with a Creating 1230PT . COM 


| XXKX:9199 int 21;Issue MS-DOS function request HH: 
XXXX:919B and al,df;Make sure character upper case 
: XXXX:Ø1ØD mov ah,4c;Set function code for terminate 
XXXX:910F cmp al,4e;Check for an 'N' = no i 
OXXXX:9111 jz lib;Yes - set return code and exit 
XXXX:9113 стр a1,59;Check for a 'Y' = yes | | 
XXXX:9115 jnz 197;No - loop until response good 
XXXX:9117 mov al,1;Set return code 
XXXX:9119 int 21;MS-DOS function for terminate 
XXXX:911B πον al1,9; .. with the return code avail- 
XXXX:911D int 21; .. able for the parent process 
XXXX:gllF db '(Y/N)? $';String to display 
XXXX:9127;Must have one extra return here 
-rcx;Set the CX register to the 
CX 9999; .. proper value for writing 
7273... file to disk 
-w;Issue file write 
Writing 9927 bytes 
-q;Exit DEBUG and return to DOS 


(22:21:39) Bi\pem> | 
Note: Make sure that you type only the text that is underlined and end ` 
each line to DEBUG with pressing the ENTER key. Do not type the 
remarks at the end of each line (from the ‘=? to the end of line) as tise = = 
are provided for your information and will cause errors with DEBUG, 


return value of one and the "no" re- ide i i | 

sponse has a value of zero. Enter the (22:23:01) Bi\pem> debug 1230pt. com 

program exactly as listed in Figure 3 File not found; Disregard error message I 
(ignoring the comments, of course) and -alff;Begin assembly at address 9199 

save it to the disk. XXXX:9199 mov ah,9;MS-DOS Function = display string 


The second program in Figure 4 is XXXX:9192 πον dx,117;Message address offset 

shorter but the logic is much more XXXX:9195 int 21;MS-DOS function request 
. . . q 
flexible and complex. This routine XXXX:9197 mov ah,8;MS-DOS function = get keystroke 
allows you meg a hee digit m XXXX:9199 int 21;MS-DOS function request 
response to the prompt. Currently, the XXXX:919B mov ah,4c;Set MS-DOS function for exit 
limit is m эзиш Yia values er T XXXX:919D sub al,3@;Remove ASCII character bias 
two and three. ihis can easily be | xxvy.019F 116 197;Character is less than "1" 
changed to include all 10 digits and, if YXXX lll emp al|3;Check for upper bound 
you extend the logic somewhat, all key ХХХХ:9113 ds 197 OHNE КИШИН h 144 
: : ; 4 char va 


responses can be returned. The binary 
value of the key pressed is returned as XXXX:9115 int 21;MS-DOS return - code in AL reg 


the DOS error code. XXXX:9117 db 'Enter option: $';Message to display 
XXXX:9126:Extra line to end DEBUG assembly 
Conclusion -rex;Set byte count in the CX reg 
Well, that’s it for another month. I CX 9999; .. for writing the COM file 
hope this clears up a few problems in the :26; .. to disk 


use of Menu and makes it a more -w;Issue write command 
productive system for you. There is a Writing 9926 bytes 


wide application for simple programs .q;Exit DEBUG and return to MS-DOS 
like those presented in the sub-menus. 


Short extensions to the disk operating 
system are valuable and profitable 


(22:27:91) B:\pem> 





tools. Notes: 

I have really appreciated your re- 1. Make sure that you type only the text that is underlined and end 
sponse and comments on the DOS Boot each line to DEBUG by pressing the ENTER key. Do not type the . 
column. Please feel free to let me know remarks at the end of each line (from the *;' to the end of line) as 
of any areas you desire to learn about. these are provided for your information and will cause errors with 
In addition to writing to me, I can also DEBUG. i 
be reached on CompuServe by leaving 2. By changing the number in the instruction cmp al , 3 at offset address 
mail to 73016,1326. o 0111, you can make this respond to any number of options. 
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BASIC Bytes 


This spreadsheet template helps make 


tax time a little easier 


1000/1200/2000/3000 





Form 1040 in a Spreadsheet 


PCM 


March 1986 


ax time is upon us and they have 

| not made things any simpler yet. 

If you and your spouse work, 

own a house, have medical and dental 

bills and other deductions, you are 

typical of many personal computer 

owners. If, like me, you have always 

done your own taxes, you might dread 

the more mechanical things such as 

making work sheets and checking and 
rechecking addition. 

I found a number of years ago that 
a spreadsheet helps a lot. So here is one 
I used last year and which I have redone 
to run in Lotus 1-2-3. It is a full 1040 
implementation complete with Sched- 
ules A, B and W. With minor syntax 
changes, it should work in any spread- 
sheet program that supports GIF, 
@ROUND and some version of LOOKUP. 
Unfortunately, it is much too much for 
Desk Mate. Desk Mate lacks the 8IF 
command and cannot accomodate a 
spreadsheet this large. 

As long as you enter your data prop- 
erly, the spreadsheet will do nearly all 
the work including transferring results 
from the schedules to the proper lines 
in Form 1040 and calculating your Tax 
Table or Schedule X, Y or Z tax. 

I won’t discuss tax code details. If you 
need more help than that which comes 
with the forms, buy a copy of one of the 
tax preparation books on the news- 
stands. I have found the H & R Block 
Income Tax Workbook handy as much 
for the examples it provides as anything 


Richard White has a long background 
with microcomputers and specializes in 
BASIC programming. He has authored 
numerous programs and articles. His 
work has also appeared іп РСМ sister 
publication, THE RAINBOW. 





By Richard A. White 
PCM Contributing Editor 


else. By the way, the spreadsheet was 
verified using examples from the 1986 
edition. 

Since the spreadsheet is quite long, I 
must assume the reader is somewhat 
experienced with their spreadsheet and 
I will keep my comments to a minimum. 
So, let's start with the beginning of the 
1040 form. This form and the schedules 
are essentially three-column affairs. The 
text is in Column A, while most of the 
numbers go into Column C. In some 
instances, entries are made in Column 
B and their results carried into Column 
C. See Figure 1. 

I set Column A at 27 characters since 
I planned to condense the text. Col- 
umns B and C are the nine-column 
default. Since I am using a formula 
dump feature, I will widen these col- 
umns as needed to accommodate full 
formula lengths. Under *Filing Status," 
enter .1 in the BB. . .B12 cell that 
corresponds to your status when you 
enter your tax data. You must fill in only 
one of these for the program to work 
properly. 

The exemptions section, shown in 
Figure 2, is a bit expanded over that in 
the 1040. It works much the same. Use 
Column A for text entries like depend- 
ent names and enter 1s as appropriate 
in Column B. The spreadsheet totals up 
the values for the right-hand blocks on 
the 1040 as well as using the total 
exemptions calculated automatically 
elsewhere in the spreadsheet. You do 
not need to manually transfer this value. 

I have provided small work sheets 
within the income section, (Figure 3) 
where you can enter wages from differ- 
ent sources and have the program 
automatically total them. If you use 
Schedule B, the interest and dividend 





τος Figure 1: 


A 


oo 
1+ 1949 U.S. INCOME TAX RETURN 


B 
1985 


ae 3-Name (& Spouse's name) 


oe “Fring Status (Enter #1) 


8- 

4 

ME 
ui 
ο... 


1 Single 


_ Figure 2: 
oe A 


.l4-Exemptions (Enter #1 for each claimed κ ж κ 


| 1, Ga Yourself 
11. 
Ege 
19. 
2g. 
21- 
20+ 
| 23- 


Blind 


6b Spouse 


Blind 


Dep. 


Other Dependents 


Total exemptions claimed 


amounts are automatically transferred. 
If not, there is some space provided to 
list a few payers of each, as well as other 
income. Remember that text goes in 
Column A and amounts go in Column 
B. Column C results are calculated. 
Note the @IF( ) in C65 that checks that 
your dividend exclusion does not ex- 
ceed your dividends. If it does, the 
formula enters a zero and not a negative 
number. 

I should point out that the G152 in 
Cell 8108 (Figure 4) is a formula that 
transfers the final result of the Schedule 


2 Married- Joint Return 
3 Married- Sep. Returns 
4 Head of household 
ο... 5 Qualifying widow(er) 
nn e μι Vus 


65 or older 


65 or older 


Dependent children & names 


children living away 


eX 4 ox ox 
LEE 


нн m e m н m me n am mA lt 


ιτ а | С 


κ ж 


] 


*wwww 
wo wow ж 
wow ooo o у 
@SUM(BL5.. 


BIZ) 


x ΧΑ e * Жо W 


ο... 
* 


* * ox * * * 


5 x */( > et * X * х 
юх х 

+ 

pe 

ζω 

^m 


Ww "owe Уо у 


.B2g) 
NW 


х 
* 
х 
х 
х 
* 
* 
+ 


πα W Wi WW 


No wo e ee wow 


W calculation. You will see other single- 
cell references like this. Just remember 
to precede them with a plus sign (+) 
when you type them so the spreadsheet 
knows that they are formulas. 

In the tax computation section (Fig- 
ure 5), your results from Schedule A, if 
you use it, are automatically trans- 
ferred. If not, there are some contribu- 
tions you may still enter in B118 and 
B119. Your number of exemptions is 
used to automatically calculate the total 
exemption in C123. 

Your tax is reported in B125. If you 


QSUM(B31.. 
@SUM(C17.. 


. B34) 
.034) 





use a spreadsheet other than Lotus 1-2- 
3 which does not automatically resolve 
all references, you will need to make at 
least three recalculations to assure that 
your tax is properly computed. It is best 
to manually recalculate until B125 stops 
changing. If you do income averaging, 
you will need to manually enter that tax 
in B126. The spreadsheet will use the 
lower of B125 and B126. 

The credits section (Figure 6) is 
straightforward. The @IF( )'s in C140 
and C145 are to assure that a negative 
tax does not result. 
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Give your Model 100 


128К 





AM 


Installs as easily 


as plugging 
in a socket 





Software included, transfers from bank to bank. Works like main 
menu! Includes powerful RAM Basic that lets programs store 
and access data from any other bank. 


PCSG says: Satisfaction guaranteed or your money back 


As amazing as it seems you can up- 
grade your Model 100 to 128K of RAM 
in just 60 seconds. 

It comes to you right out of the box 
looking just like the picture. You just open 
the little compartment on the back of your 
Model 100 with a quarter and it just pushes 
right into place. You can then put the cover 
back in its place. 

You then have 4 banks of RAM of 
32K each. The additional three banks 
also work just like your Main Menu. 

You push a function key and you are 
in the second bank. Push again and you 
are in third, again, then fourth. Press it 
once again for your original bank. 

It has its own built-in NiCad battery 
that recharges right from the Model 100 
and its guaranteed for a full year. 

What is really great is that you can 
copy a file from one bank to another with 
just a function key. 

Each bank is like having another 
Model 100, and all the built-in programs 
as well as any snap-in ROM programs ap- 
pear in all four banks and work the same 
way. Your widebar cursor moves from file 
to file and you access any file or run any 
program just by pressing ENTER. 

What lets you copy any file from one 
bank to another is a snap-in ROM from 
PCSG called RAM +, that comes at no 
extra charge. It just pushes right into the 
little socket in that same compartment with 
the 96K expansion unit. 


within 30 days 


Not only does this firmware let you 
copy a file from bank to bank, but you can 
make a copy of any file within the same 
bank instantly with a function key. Great 
for Lucid spreadsheets! 





Copy a file from 
bank to bank with a 
function key 





You can also rename a file, or kill any 
file with just a function key. Plus you can 
do a whole lot of other useful things like 
setting the date, day and time with func- 
tion key ease. You even have a function 
key that lets you use non-Radio Shack 
printers without having to make those 
tricky dipswitch settings. 

RAM - lets you cold start any one of 
your banks without affecting the other 
three. That means that anytime you want 
you can clean out a bank's entire memory, 
but leave intact all the files in the other 
banks. 

Whatis also fantastic is that you don't 
have to have the ROM in place to use the 
additional RAM. Whenever you take out 
the snap-in ROM it leaves behind a tiny 
machine code program that lets you switch 
from bank to bank just by pressing 
ENTER. 


This lets you use your ROM socket to 
snap-in other ROMS like LUCID spread- 
sheet, WRITE ROM text processor, or 
DISK + ROM file transfer program, and 
use them in any or all four banks. АП of 
these, by the way, are available from 
PCSG. 

When you are ready to copy a file 
from one bank to another or use any of the 
other fantastic functions we talked about 
you can just snap the RAM + ROM back 
into place. 

Everybody that has this 128K system 
in their Model 100 is so excited, because it 
gives them four times the capacity and 
all banks work just like the Main Menu. 

And what has made a lot of people 
happy is that the system bus, located in the 
same compartment, is left free for you to 
plug in a DVI or the Holmes Engineering 
PCSG portable disk drive. 

The ability to copy a file from bank to 
bank instantly with a function key, plus all 
of the other features make this RAM ex- 
tension truly an engineering masterpiece. 

Some people hesitate when they think 
of installing something, and then others 
are skeptical that any additional hardware 
could be as good as the Model 100 itself. 
That's why we sell these 96K expansions 
on a 30 day trial. Simply return it within 30 
days for a full refund if you are not satis- 
fied. Priced at $425. MC VISA COD. 


1-214-351-0564 





PORTABLE СОМЕ ЛЕК SUPPORT ΟΚ P 


11035 Harry Hines Blvd. No. 207, Dallas, Tx. 75229 
VISA / MASTER CARD / AM. EXP. / C.O.D. 


FTTTTDTHTNTUDTTTTUTITTTUTTNTTTDITHUTTTTUITHTTNTIDNHTHTHTHTIINTIUHTTHTHATUYREHUTEMUUUUMTTMYIRYHYTTTUTHTU ETTHATUT MY D 


Figure 3: 
n А 1[ В 
37-Income 
38- | List wages, salaries & tips 
39- 
49- 
41- 
42- 
43- 
44+ 
45- 
46- 
^7- | 7 Wages, salaries ἃ tips W * * * X x x W 
48 ` Yo we Xe ove Ж e з Ж 
49 - List interest income woe Ye owe Ж Ж ж з 
59- Schedule B if used 6197 
51- 
52- 
53- 
54- 
55- 8 Interest income Ж ж ας Зе Зе Жо Ж 
56- * ж жоу W W Ж κ 
57- List dividend income κ eo W W W W 
58- Schedule B íf used G132 
59- 
6g- 
61- 
62- 
63- 9a Dividends (QSUM(B57...B62) 
64- 9b Exclusion 
65- 9c Dividends less exclusion 
66- Жо жо de W W W Ж 
67- 1g Taxable state/local tax refunds 
68- 11 Alimony received ΑΜΚΑ 
69-. 12 Business income (loss) Sch. 6 
798 - 13 Capital gain (loss) Sch. D 
71- * ж ж Жж Ж we ж Ж 
72- | List capital gains distributions 
73- not shown on Line 13 above. 
74- 
75- 
76- 
77- 14 49$ of above capital gains dist 
78- 15 Supplimental gains (loss) F4797 
79- 16 Taxable pensíons, IRA, etc. 
8g- 17a Other pensions etc. 
81- 17b Taxable amount % Ж xe W W % W W 
82- 18 Rent, royalities etc. Sch. E 
83- 19 Farm income (loss) Sch. F 
84- 208 Unemployment comp. 
85- 29b Taxable amount Ἀ owe ve se se de e 
B6- 21a Social Security 
87- 21b Taxable amount de ж owe W Ж Ж Ж 
88- Tax exempt interest 
89- ΑΝ W W W W 


— 
— 


С ] 
κ κ + K W ж жоу Ж W 
ORK е хх жу у W W 
Je жж жоу e жоу ж ж W 
жож жож W de e desse ye ve 
We de % W Ye de koe de oye W 
Né de we e Ye ve W W W Ж Ж 
жж S πε de de ж Ж Ж ж W 
жж Ж жож W W у жо Ж 
QSUM(B38. ..B47) 
Ye Ye e W eode eode Ye у ж 
e Αα W ode ode ж жоу W W 
жж ж у ode eoe oe жоу ж 
RK RK Ж Ж УЖ ж W W 
e Xe зе ж жу W W W 
Жожо Ye ж жоу S πα у ж ж 
de OK ж у ж Жж жо у Ж Ж 
@SUM(B49...B55) 
жж deo eode S Жу Ж Хх Ж 
OR OK жу de Ж у ж Ж W 
жож жож жож Ж W ж жо 
ΡΣ 
ΠΣ; 
Ж e Ж de de Ye oye VW W de W 
ж e we W deo e Ye W e W W 
жж We de eode Ye de eoe Ж 
* ж W W % % Ye W W W 
QIF(B63»B64,B63-B64, 9) 
Ow ο κ W W W w 
Ж ode ode Ж W Y W W W W W 
KR W ж deo W W W W W 
KK RRR W W W W W 
LA W W ж» W W W W W Ж 
KR W W W ж W ж W W W 
жж W W W жо ж W W w 
,4*@SUM(B73...B77) 
wok жож YW W W W Ж W W 
We Ye xe W W W W W W W oe 
de We W W W ж eode W W W 
We Xe W W eoe W W W W W 
ROR RK W W W W W Ж 
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List other income 


Figure 4: 7 


98- -Adjustments to Income * 


99-24 Moving expenses 

19g- 25 Employee Business exp. 
101-126 IRA deduction 

1β2-. 27 Keogh deduction 
103-286 Penalty early withdraw 
194-. 29 Alimony paid ИНН 
195- | Recipient name/S.S ἡ 


196- жож Ж 
1g7- ИН ! | хо w * 
198- | 39 Married deduct. Sch W 6152 


199- | 31 Total adjustments 


111- Adjusted Gross Income 


112- | 32 Adjusted grosa income * ж ж 


Personal Integrated Computers 
18013 SkyPark Circle, Ste. D., Irvine, CA 92714 


COMPARE PERFORMANCE 
TE 


Disk Drive $599.00 
30 Day Refund Guarantee 


@ No applic. software 
e JOOK storage per disk 


eLg. package software 
e 360K storage per disk 
e 348K file size e 29K max file size 
e 0х8 display e 40x8 display 
e Rechargeable during use «ο Not rechargeable 
& powers your computer 
ΦΟΡ system: CP/M 
Direct Disk Access 


e OP system: 
Load-Store Only 


NOW: VIDEO INTERFACE 
FREE BASIC INTERPRETER 


For catalog, 
1-800-421-6300 literature 
Trademarks: Tandy, Tandy Corp; Cp/M-Digital Research 


PCM March 1986 





WIZARD Unities 
P.O. Box 7 


Sudbury, de 01776 


1-714-261-0503 





"deve e de ye жож W Ж» 
We sé ме we de dese de deo 
WOK жо ж жо ж Ж Жо Ж 

ΝΠ de K w k w ΑΝ ж ж 

е е We πε Ἂ е E е ate κ 


Wk x жож w w GSUM(B9g...B95) | 


ΤΗ! 


————— A 


c. ] 
жож Ж ож жож ж Уе 
OR жж ж W W Ж 
Keo жож Ж Жо Ж 
жож Жж W W жож 
Жж Ж ож Ж ож Ж ж 
πε! πε ede К ee e 
жк жож жож πὲ Ж 
EAE E ч жож оу 
жожо жож Жо ж Жо 
кж ЖОЖ w 
Жж ж жож ж о Ж ж 


@SUM(B98...B109) 


== ee Ñ. 


MEET THE WIZARD" 


Quality / Price / Performance Guaranteed 
Easy to use! $29.95 for any one package 


9.95 for each additional 
For TANDY 1000, 1200, 2000, 3000 and Compatibles 


1. RAMDISK — Transform your spare memory into 


superfast disk(s). You specify size and number. 

* МЕМ * replace your old ramdisk software. 
and Ours has automatic timed backup. 

BETTER Never again lose your ramdisk data. 


. UNDELETE Plus — Recover deleted files, graphics 
display of directory tree, rename directories, find 
files in any directory, display sorted files, change 
file attributes, and more (10 programs in all). 

. SNAPSHOT — Instantly save and display up to 99 
text screens. Great for debugging, Help screens, 
etc. 

. XTEND — Instantly recall, edit and execute your 
last 30 DOS commands. Execute multiple com- 
mands with one keystroke. (Macro facility). Makes 
DOS easier! 

** NEW! Memory Resident, Menu Driven ** 

. GRAFIX — Send graphics screen image to printer. 
You set printout size/density. (For most printers.) 

. FONTIX — Set printer fonts, tabs, margins, etc. 
Automatically produce paginated printouts and 
structured Basic listings. (For most printers.) 


800-622-4070 
800-942-7317 in ILL. 


$3.00 ship & handling 
in Mass add 596 tax 











Figure 5: 


A JL 5 11 G ] 
114-Tax Computation κ ἊἋΧ πὲ хох we ve e cho ovo 
115- 33 Adjusted gross income ж w ж * * C112 
116- 34a Itemized deduction Sch. A G85 
117-. If you do not itemize- Wee we eoe eoe W W W Ж ож Ж 
118- 34b Cash contributions W Kk ve We Ж W ж жоя 

.119-.  834ς Non-cash contribtions * жож W Ж Ж жож Ww 
12g- 34d Total 34b and 34c B1184B119 w ж ж ж *& ж жож w 
121- 34e Line 344/2 ΑΝΝΑ B129/2 
122- 35 Income less deductions ж ж ж * * C112-C116-0C121 
123- 36 Total exemption * жож ж ж C35*1 949 
124- 37 Taxable income Ἁ жо * w w 0122-0123 
125- Table/Schedule XYZ tax C194 * жо жо W W Ж ж Ж 
126- Schedule б tax Row ж ж W W W ж W 
127- 38 Table/Schedule tax * * ж к * (aMIN(BI25...B126) 
128- 39 Additional taxex ож eode жож 
129- Enter form number жож Ж Жок Ἀ Ἢ koe 


139- | 4g Total precredit tax κ * * w w 012740128 


Figure 6: 


[ A 

132-Credits * 
133- 41 Dependent care F2441 * 
134- 42 Elderly/disabled care * 
135- Schedule R * 
136- ‘Residential Energy * 
137- Form 5695 * 

* 

65 

QI 


* * * * * * * o 
* * ἘΚ Е, 


* 
* 
* 
* 
* 
* 
κ 


* * * X * * κ 
шор ж * EE 


138- Politial Contrib. 

139- Personal credits .B138) 

14g- Tax less pers. credits FC à C139, €134-0139,9) 
Foreign tax Form 1116 ο oe жок жож oe Ye Se К κ ης 
Gen business credit ye esse eode we We о Ж Ж επ πε πε 
List form number sk Se de eo жож Ж Ye Ye 9 πε πε oe 
Total business/other C1414C142 
Tax less all credits iiim C149-C144,9) 


a8 


* 
* 
* 
* 
* 
x 
* 
3: 
< 


B13 
9 


Figure 7: 
[ A 

147-Other Taxes 

148- 51 Self-employment tax 

149- 52 Alt. minimum tax 
Tax fm recap inv cr 
SS tax on tips 
Tax on an IRA 
Total tax (SUM(C145;.. 


155-Payments 

156-57 Income tax withheld 
157-58 Estimated tax paid 
158- 59 Earned tax credit 
159- 69 Amt paid Form 4868 
160- 61 Excess SS/RRTA tax 
161- 62 Fuels tax credit 
162- "Form 4136 

163- 63 Reg Inv Co credit 


* * * * * * * * * 
τ... 
* * GROB ΧΧΧ * *% * 
x * * ας... 
κ. * x XR * * * * 
x * * X XR * GR * X 
* * * X Έτ. κ 
ΣΣ... * * κ 
κ * obo X XR * X 
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Form 2439 
64 Total η 


167-Refund or ШШЩЩ You Owe 


μαι 


ye ye κ νο κ Ж κ 
‚.В165) 


* * * * @SUM(B156. 


65 Amount OVERPAID 
169- 66 Amount to be REFUNDED TO YOU 
179- 67 Apply to 1986 Tax 


171-68 AMOUNT You OWE 


The ®IF( )’s in C168 and C171 (Fig- 
ure 7) are setup to return either an entry 
in the “overpaid” category or in the 
“amount owed” category. If you over- 
paid, enter the refund desired in C169 
and the amount to credit to 1986 taxes 
will be automatically calculated and 
shown in B172. This is backwards from 
the way we have entered data only into 
Column B and not Column C. But, the 
1040 does it this way, so it should make 
filling the form out easier. 

This completes Form 1040. We will 
start Schedule A at Cell E1. I like to 
make Column D a buffer and set it at 
30 characters wide to assure that Sched- 
ule A is completely off the screen when 
working on the 1040 form. Make Col- 
umn E27 to E30 characters and leave 
Columns F and G at nine-characters 
wide. See Figure 8. 


| Figure 8: 
| | Е 
Schedule A 


4- Medical and Dental Expenses 
l Medicines and drugs 
12а Doctors, dentists etc 
2b Transportation/lodging 


Бү 


‘List other 


26 Other total 
3 Total Lines 1-2c 


19-. 


4 5$ of line 33 Form 1949 .95*C115. 
5 Total medical & dental жож ж жож Ж W 


Note that only medical expenses in 
excess of 5 percent of your adjusted 
income, C115, are deductable. So Form 
1040 must be completed to that point 
for Schedule A to work correctly. This 
is only important in the final calculation 
and not while you are filling in data. 
But, I don't want you to get your hopes 
up if you enter your medical expenses 
before all your income is in and you 
think you will get a larger deduction 
than finally works out. 

The amount listed in rows 56-60 
(Figure 9) are not totalled. They are for 
information purposes only and should 
contain only contributions greater than 
$3,000. You will probably have numer- 
ous smaller contributions. Make a 
separate worksheet to record and total 
these. In fact, you may need a number 
of separate worksheets. The Н & К 


11 F 


--- Itemized Deductions 


wo ΧΧΧ κ 


κ Ὢ * * Ww Ww w 


@SUM(F9...F15) 
F5+F6+F7+F16 


X Xxx x X RO EHH EHH OE $ 
LHL ORE KO E HK HHH + $ 
X X XR OE LEAK EH HS 


RRR RR жж» жж ж e жож W e W W 
киж х Q@IF(C165>C153,G165-C153,G1) 


С168-С169 * ж X ж W W Ye W W ow x x owe 
ж жж w Q@IF(G153>C165,C153-C165,G1) . 


ЯТТАН ННН μμ με μεμα НАН ЫННАН НІНЫ 


X kt E RH HHH HH KH ж: 
X 3 SE t R XE 3 αλ... 


@IF(F17>F1 










Block Workbook has good examples of 
small worksheets that can be easily 
converted to spreadsheet templates. 

See Figure 10. The tax tables and 
schedules have a standard deduction 
already built in. Your itemized deduc- 
tion amount is what exceeds the stand- 
ard deduction. When you entered a 1 in 
one of the BB. . .B12 cells, you told the 
templaté what your filing status was. 
The 1 was then multiplied by the ap- 
propriate standard deduction value in 
one of the H8. . .H12 cells. Since only 
one of the BB. . .B12 cells contains a 
number, only one of the H8. . .H12 cells 
will be evaluated. The formula 
G&MRX(HB. . .H12) gets that number 
into G84. The ΒΙΕ( ) in GBS compares 
itemized deductions with the standard 
deduction and returns the difference or 
zero. 


2399%BS 
3549*B9. 
177g]*B1g. 
2399*B11 
3540*B12 


£ X X 0X X X X 0X X X X X X X* 


QA * * * * OE * * * * * * AK 


` 
МУ 


CHR * % X * £ £ *% £ X RHEE 
το SE RRR R XX X X X X X X 


= 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
Е 


* 
* 
8, 


co 4 


17 


skay Mate E HH EU UO АШ ARP HPS phan EEEE EE ENSE SERRE HIT 


.21-Taxes You Paid 
22- 
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6 State & local income tx 


11 WR 11 


ROR e W W W W W κ w 


Go ug 
WK ow о} w 





жож We We eoe W W Ж ж 





23: ΜΙ ОЛ Real estate taxes 
84 General sales taxes 









// List other taxes. 


| 9 Other taxes _ 
1g Total taxes 


580 Sales tax on motor veh 


RRR Ж Ж 


woo 


* 


x * * ντ. * * x 0X 
κ * x * * * X x * 
Е Е XR OR αν * * 
ΣΣ... κ S 
* 
* 
κ OE ᾱ- XX SE SE SE: % 
ἄν... OX GB * * 
OR % ἈΚ κ 
ххх 0х0 


x 


Row ok Ok 


х 


nn 





36 11a Mortgage int to inst 


(1538-2; List person paid int 
(41-12 Gr card/cg acct int 


List other interest 


YOU ALREADY HAVE 
HALF OF THE BEST 
WORD PROCESSING 
SYSTEM IN THE WORLD 


more, your MultiMate, 
Display Write, WordStar, pfs: WRITE, 
VolksWriter, Writing Assistant or other WP 


Software! can instantly fourteen 
columns of text, LZ automatically 
δε RED 


ος 
screenplays, scripts, footnotes?, EA 


boxed copy | and lots more. It’s fun with 


Powerlext 
1 Any other MS-DOS or ASCII WP Software FORMA TTER 


2 On the same page or end of your document N 
BEAMAN PORTER, INC. 


TO ORDER, CALL OR WRITE: Š 


^ 417 HALSTEAD AVENUE 
HARRISON, NY 10528 

(800) 431-0007 

(914) 835-3156 IN NEW YORK 





© create outlines, calendars 


` 


newslett 





*Add $5 for Shipping and Handling. 
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EXPAND ΤΗΕ TANDY 20005 


TO 
896K 


OF DOS ADDRESSABLE RAM 


Includes RAMdisk Software at No Extra Cost ... 
Add 640K of External RAM Memory to TANDY 2000's* 
256K of Internal RAM Memory for a total of 896K of DOS Ad- 
dressable RAM. 
ж ж New Products Available Soon ж x 
(Send for catalog) 


cost: 





$495.00 for a 640K bytes of External 
RAM Memory Board (Includes RAMdisk 
Software) 

Call about our Trade-in Exchange option 
if you already use Tandy's 128K External 
Memory Board. 


for ordering (509) 627-5291 
and information call: Hours 9:00-5:00 PST 
We accept Check, MO, Visa, Mastercard 


CErms: Add 7.3% sales tax in Wash. 
Add $3-shipping/handling, $5 foreign. 











TANDY 2000* IS A TRADEMARK OF TANDY CORPORATION 
RAMdisk is а Random-Access-Memory based disk 


ENVISION DESIGNS 
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НИ ИА ИДИ КАТИ ШИ ДИТИ d ДИД 
52- Contributions You Made we oe sees ΧΕ ἈΚ W Жоо Ж 
53- 154 Cash cont «$3909 % W Ww W Ж κκ 
54- 150 Cash cont 293000 жож жоко око ж 
55- List whom/how much жожо жо кок 
56- *o*e Ж жож W w 
57- W W W W W W w 
58- we W Ww Жо W w 
59- жожо жож ae 
6g- жожо жо к ж w K 
61-16 other than cash хоо * W Жж Ww w 
62-. 17 Carryover Ww Ww W w Ww w κ 


63- 18 Total contributions жо * * * ^ F53-F544F614F6 


Ий ИИ mmm mie ИЙИН н ИЛА ранец 





E 11 F i G bos 
65- 19 Total casuslty/theft Ακ | Minn 
66- Attach Form 4684 жож K Ye e e жож жж K Kk N K жож жоу у Ww “U 
Оннан ашыц ESR ei bus Ц 
68-Miscellaneous Deductions Wo W W W se de k K W ee Ww у k K ee 
69- 2g Union & Prof dues We W W W W Жок жож W W у A 
79- 21 Tax return prep fee We se eoo e жож Жо у 
71- List other W W de de ck W W W Жж ж Kk W W Ж Ye Ж W у у 
72- ож ve e ж жж ж у л ж 
TR fx 3 W W W Ww W жож ж ож жоу у. 
74s Жо xe e Жол жож Ж W Жо W 
75- Se owe ce ose deo de W W W W W 
76- жож жож W W Ww W И 
77- ve e e W ve xe S у S Жозе Ж 
78- | we xe ode xe we owe жох eo ye 9 W 
79- 22 Other deductions QSUM(F72...F78) жижу W W W W W W у 
80- | 23 Total Miscellaneous Wow ow xo νε  F694F70F79 
82-Summary of Itemized Deductions Ww k deo Kk Wk K k k W у. 
83- | 24 Total Ins 5,19,14,18,19,23 б619+633+650+663+665+680 ^. 
84- | 25 Standard deduction QMAX(H8. ..H12) 
85- 26 Itemized deductions @IF(G83>G84, G83-G84 ә) 






Figure 11: 






[ E Mo EN SR W 
87- | ARR 
88-Schedule B -- Interest & Dividend Income 
раа аре рун 
99-Part 1 Interest Income жожо Kk K We ode esses e X W 
91- 1 Interest from mortgages * ж w w ; 
92- List payer Ww Ж w w 
93. жож ож ж 
94- 2 List other interest жж w 
95- w w # w 
96- W S ож 
97- * ж ж Ж 
98- Ye Ye ж ж 
99- жож кож 
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We would like to take this opportunity to introduce ourselves. Although Ross Computer Services is a new 
name to the pages of this magazine, we are NOT new to computers. We have been suppling computer dealers 
with many of the products they sell for several years. We have decided to end that relationship, and to sell 
directly to you, the end user. 


ROMDSK. 8K or 32K CUSTOM expansion rom for 
the TRS-80 Model 100. Custom programmed with 
Ea programs. 


$49.95 — 32K $69.95 
Call or Write ROSS COMPUTER SERVICES 
For Ordering Information 


The SMART Software System, from Innovative Softwear. 

The SMART DATA MANAGER 

The SMART WORD PROCESSOR 

The SMART SPREADSHEET (With Graphics) 

The SMART SPELLCHECKER $139.00 


The SMART SYSTEM” $895.00 


*The SMART Software System includes: The Smart Data Manager, The Smart Spreadsheet with Graphics, and 
The Smart Word Processor, and can only be sold as a system, not as individual products. The smart Software 
System includes built in asynchronous communications and personal time management programs. 


BORLAND 


INTERNATIONAL 


Turbo Tutor . Superkey | 
Turbo Pascal 3.0 $ 69.95 SideKick (copy-protected) ..$ 54.95 
Turbo Pascal with 8087 t SideKick 
Turbo Pascal with BCD $109.90 (NOT copy-protected) ....$ 84.95 
Turbo Pascal 3.0 with Traveling SideKick 

both 8087 & ВОС..... ..$124.95 (when available) $ 69.95* 
Turbo Database Toolbox .... š Traveling SideKick 
Turbo Graphix Toolbox ! with SideKick (NCP) 
Turbo Editor Toolbox ; Turbo Lightning 
Turbo Gameworks Reflex: The Analyst 
"Traveling SideKick should be available by the time you read this ad. 


MERCURY 300/ 

1200 MODEM 

Mercury 300/1200 Ross Computer Services is a division of a company that has been 
auto-answer/auto-dial, in business for over 54 years. We are not likely to fold our tents, 
HAYES compatible m nim and steal into the night. We will sell only the highest quality hard- 
MODEM. Uses the industry standard AT command ware and software. Though our initial offering is limited, we will 
set. be constantly adding to our product line, again, adding only 
SPECIAL $199.95 products of the highest quality. 


SETAL] 


(816) 363-2545 
Hours: 8:30 to 5:00 се 


After 5:00 you will reach our order line BBS 
1800 W. 91st Place ο Kansas City, MO 64114 





1g9-Párt II Dividend Income | * ** 
4 List dividend income ^ 


11g- 
111- 
112- 
113- 
114- 
115- 
116- 
117- 
118- 
119- 
12 
121 - 
122- 
123- 
124-. 
1252/05 ҮН 
bay RR EH i 
127- 
128- 


There is nothing fancy about Sched- 
ule B (Figure 11) except I blocked out 
Column F forcing values to be entered 
into Column G to comform to the IRS 
form. 

Of course, inclusion of Schedules A, 
B and W (Figure 12) are optional. If you 
and your family or friends don't need 
them, don't bother typing them in. 
Figure 13 shows the tax lookup tables 
which should be placed in the exact cells 
shown so that the tax calculation for- 
mulas will work. 


The tax schedule values came from 
the 1986 H & R Block Workbook. 1 
have to assume that they are correct at 
this writing. You might check the values 
for the schedule and range you will be 
using against the schedule in the IRS 
booklet you got with your 1040. 

Now we come to the hard work, 
typing in the tax calculation formulas 
exactly as they appear in Figure 14. By 
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0. Hh Total listed dividends . 
H 19, наро η, dist. f 


the way, if you know that you will only 
be filing a married joint return, for 
example, you can cut your work by only 
typing the lookup table and the calcu- 
lation formulas that apply. Be sure to 
type these exactly where shown in the 
spreadsheet and you should have no 
trouble. 

The IRS expects those whose taxable 
income is less than $50,000 to look up 
their tax in the tax tables. Since the IRS 
computers check to make sure this is 
done accurately, our spreadsheet must 
calculate the same value as the tax table 
provides. For income over $3,000, the 
tables are set up in $50 ranges and the 
tax is that on the central value in the 
range. For example, the tax table value 
for $11,035 is actually the tax on 11025. 
The formulas in cells 8173. . .8177 
determine the taxable income for tax 
table lookup. 

For income below $3,000, the tables 





are set up in $25 increments so we need 
different formulas in cells 8173. . .B177 
to calculate a correct income in this 
range. The formula in cell B125 is 
incomplete above and should be: 


ΒΙΕ(Β124«25.12.95.ΒΙΕ(Β124«50., 
37.5; 8IF(B174«75,62.5,87:5))))) 


The 8IF( )in C177 chooses which 
taxable income value to use. If taxable 
income is over $50,000, the taxable 
income from C124 is used directly. 
Three @VLOOKUP( ) formulas get the 
right values from the lookup tables. The 
calculations are done within the 
GROUND( ) formulas which return an 
integer tax value. 

You should be able to type in the 
template and debug it in a few evenings. 
And once you have it working, try your 
hand at the 1040A and some others you 
might need to use. 0 






Figure 12: 


[ 
134-Schedule W 


137-Step 
139- | 1 
14g- 2 
141- 3 
142- 

143-Step 
145- А 
146-. 5 
147- 

148-Step 
159- 6 
151-7 





Е 11 


135-Deduction for a Married Couple When Both Work 


Wages etc F1949 Ln 7 
Other earned income 


Total earned income F139+F149 


F 


11 6 ] 


613946149 


Ж RK eoe KR Жо + з e κ κ 


2 Qualified earned income 


Lns 25,26,27,31 adjust 


Qualified earned income F141-F145 


Αα c о + 


6141-6145 


wow owe W W W + eoe + κ. W W W W 


3 Figure Your Deduction 


Smaller of 5a or 5b ж жож κκ ΑΜΙΝ(Ε146...6146) 


Percentage to figure deduction 


Deduction 


------------------------------------------------------------------------------------------- 





Figure 13: 


[ E ЭЦ НН ИНӘ ШИ pun ] 
154-Income Tax lookup tables Schedule X 
155-Schedule X Taxable Income Rate Precalc | Amt over 
156- g.gg 9.92 9.99 9.99 
157- 2399.99 β.11 9.99 239ρ.60 
158- 3549.99 6.12 126.59 3549.99 
159- 4589.99 4.14 | 251.39 4589.99 
16β- 6769.99 g.15 556.59 6769.99 
161- 8859.99 g.16 879.99 | 8859.99 
162- 11249.99 8.18. 1252.49. 11249.99 
163- 13439 .99 5.29 1646.69 13439.99 
164- 15619.99 g.23 2982.68 15619. 99 
165- 18949.99 β.26 2848.59 18940.00 
166- 24469.99 9.39. 4283.79. 24469.99 
167- 29979.99 g.34 5936.79 29979.99 
168- 35499.99 8.38 7813.59 35499.99 
169- 43199 gg β.42 16739.5Φ 43199.99 
176- 57559.99 9.48 16770.79. 57559.97 
171+ 85139.99 6.56 39999.19 85139.99 
172- 99999999 . gg 
173 5-5 на-на ннн ннн ннн ннан 
174- Schedule Z i 
175-Schedule Z Taxable Income Rate Precalc Amt over 
176- ο 9.99 9.99 9.99 
177- 2399.99 g.11 0.00 2390.080 
178- 4589.99 9.12. 246.9ρ 4589.99 
179- 6769.99 g.14 592.59 6769.99 
18g- 9959.99 g.17 823.1g . 9959.99 
181- 12289.99 8.18. 1372.29 12289.99 
182- 15619.99 8.26 1971.68: 15619.99 
183- 18949.99 g.24. 2637.69. 18940.00 
184- 24469.99 9.28 3962.49 24469.99 
185- 29979. yy #.37 5595.29 Z99179, yý 
186- 35499.99 8.35. 7271.69 35499.99 
187- 46529.99 8.42/11132.19 46520.99 
188- 63979.99 6.45 18983.19:  63979.99 
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85139. 99 9.48 28919.19 85139.07 


199- 112729.99 9:59 41253.39 112729.99 
191 - 99999999 gg i 
192------------------- hiii ННН 
193-Married Joint Returns Schedule Y 
194-Schedule Y Taxable Income Rate Precalc Amt over 
195- p: pg 9.99 g.9g 9.99 
196- 3549: 99 β.11 9.99 3549.99 
197- 5729.90 g.12 239.809 5720.009 
198- 7919.99 9.14 592.69 ^ 7919.99 
199- 12399.09 8.16, 1129.89 12398.97 
200- 16659.99 9.18 1811,49 16650.99 
291- 21929.99 9.22 2598.99 21929.99 
202- 25600. gg 9.25. 3695.69 25699.99 
203- 31129.99 9.28. 4985.69 31129.99 
294- 36639. 99 9.33. 6528.49 36639.99 
205- 47679.99 9.38 19171.69 47679.99: 
296- 62459. 09 8.42 15788.99 6245044 
297- 8999.99 9.45 26976,89: 8999.90 
208- 113860.00 6:49 38123.39 113869.90 
209- 169929.99 9.56 65151.79 169929.99 
219- 99999999.99 
21l------------2---085B-4BRIILII22--2582-2-222-220222-8 
212-Married Separate Returns i 
213-Schedule Y Taxable Income Rate Precalc Amt over 
214- 9.99 9.99 9.99 9.99 
215- 1779.97 9.11 8.99 1779.99 
216- 2869.99 9.12 119.99 2869.99 
217- 3955.99 #.14 251.39 3955.99 
218- 6195.99 8.16 564.99 6195.90 
219- 8325.99 8.18 995.79 8325.99 
22β- 19519.99 9.22. 1299.99 19519.99 
221- 12800, gø 9.25 1892.89. 12899.99 
222- 15569.99 9.28 2492.89 15569.99 
223- 18315.99 8.33 3264: 20. | 18315. 9g 
224- 23835 . 99 9.38 5985,89 23835.99 
225- 31225.99 9.42. 7894,99. 31225.99 
226- 44545.99 9.45 13488.49 44545.99 
227- 56939.97 8.49 19g61.65 56939.09 
228- 84519.99 9.59 32575.85 84510.99 
229- 99999999.09 
Figure 14: i 
[ А 1! Β lt igit] 
173- 199*QINT(C1247199) 19g*QINT(C124/199) f 
174- €124-A173 С124-В173 
175- @IF(AL74<59,25,75 QIF(B174425,12.5,0IF(B174«59,37. 
176- A1L73+A175 B1734B175 
177- QIF(C124«599998,A176,C124 GIF(C124«59000,B176,0C124) QIF(CI24«3999,B177,;A177). 
178-Filing status 1 Precalc QVLOOKUP(C177,E156...E172,2) i 
179- Amount over QVLOOKUP(Cl177,E156...E172;,3) 
189- Rate @VLOOKUP(C177,E156...£172,1) 
181- Tax GROUND(B189*(C177-B179)48178,0) @ТЕ(В8>09,В181,9) 
182-Filing status 4 Precalc QVLOOKUP(C177,E176...E191,2) il 
183- @VLOOKUP(G177,E176...E191,3) 
184- @VLOOKUP(C177,E176...F191,1) i I i 
185- QROUND(B184*(C177-B183)*B182,9) QIF(Bl1»9,B185,9) 


186-Filing status 2&5 Precalc QVLOOKUP(Cl77,E195...E2190,2) 
187-Joint Returns. Amount over QVLOOKUP(Cl77,E195...E2190,3) 





188- Rate (VLOOKUP(Cl77,E195...E219,1) i 

189- Tax @ROUND(B188*(C177-B187)+B186,9)  @ТЕ((В9+В12)>0,;В189,9) 
19g-Filing status 3 Precalc QVLOOKUP(C177,E214...E229,2) 

191-Separate Returns Amount over @VLOOKUP(C177,E214...E229,3) 

192- QVLOOKUP(O177,E214...E229,1) 

193- QROUND(B192*(C177-B191)4B199,9)  QIF(B19»0,B193,9) 

194- QSUM(C1BI.;.C193) i 
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ΠΠ Feature 100/ 200 


A Text Analyzer 
For The Model 100/200 


By Ronald F. Balonis 


he Model 100 is called a “portable computer.” That’s 

probably why you bought it. But its real worth, as 

most find, is in what it lets you do with your words 
rather than your numbers. Everyone must write. And, no 
matter what your writing proficiency or needs, writing on 
a 100 is the best way yet to make the most of what you do. 
Writing Better with the Text Editor 

It’s a fact of life in computing: Computers make you 
write. To make them go, you must write programs for them. 
And now, you can also use them to write for people. They're 
both called writing, but that’s where the similarity ends. 
Writing for a computer is easier; its words and syntax have 
only one meaning, and when it doesn’t understand, it tells 
you so. When writing for people, you never really know; 
there’s seldom any useful feedback. That’s where a little 
word processing such as the 100’s text editor helps. It helps 
you find and fix errors of spelling and syntax; to find and 
fix errors of meaning; to revise and edit until it says what 
you mean; to make your writing readable and understand- 
able. 

Everyone can acquire the skills of writing. You get the 
spelling and meaning from dictionaries, the grammar and 
syntax from text books, the skill in their use from practice, 
practice, and more practice. Somehow though, the compu- 
terist in me thinks there must be an easier way. There needs 
to be a program to compute the statistics of readability of 
your work. 

Computing Readability 

Readability schemes abound in the academic world. 
Three of the readability disciples whose work made my text 
analyzer, TSTATS.BA, program possible are Dr. Edward 
Fry, Robert Gunning and Dr. Rudolf Flesch. Their 
readability methods count the words and the syllables, find 
the average length of the sentences and the number of 
sentences and syllables per hundred words, then use them 
to compute a level of education for the text. However, the 
methods do not account for context, content, or style, so 
the implied precision is imprecise at best. They should be 
used as a guide, rather than a panacea, to better writing — 


Ronald F. Balonis is chief engineer of radio station 
WILK in Wilkes-Barre, Pennsylvania. He has been an 
electronics and computer hobbyist for many years 
and, since March 1983, a Model 100 enthusiast. 
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Тһе 
Accessible 
Computer 

Experts 


moss 


HARDWARE SPECIALS 


Tandy 600 CALL 
Tandy 3000 CALL 
25-1000 Tandy 1000 2-drive CALL 
Tandy 1000 10MB HD CALL 
251004 Memory Board — $189.00 
251005 Second Drive CALL 
251006 RS232 CALL 
251007 HD Controller CALL 
251010 Mouse Calendar CALL 
251011 Memory Plus CALL 
251013 300/1200 Modem САЦ. 
251014 Plus RS232 CALL 
251015 Plus Mouse 

Controller CALL 
26-3802 Model 100 24k $449.95 
26-3808 Micro Floppy 

Disk Drive 
26-3860 Model 200 
26-3816 8k Upgrade 

Model 100 39.95 
26-1276 DMP-105 Printer 

80 cps CALL 
26-1278 DWP 220 Printer CALL 


PBJ Multi-function Board 


$179.00 
$749.95 


TRS-80 Trademark Tandy Corporation 
Prices subject to change without notice 
Write for our FREE newsletter 


DELKER 
ΗΝ 


7 


@ 800-251-5008 


I 800-545-2502 


(Tennessee) 


ACCESSORIES 


Novation J-Cat Modem 
USR Password 300 
USR Password 1200 
USR Password 2400 
Elephant Disks SSDD 
Elephant Disks DSDD 
Bonus Disks SSDD 
(Box of 11) 
Bonus Disks DSDD 
Mach 11 Joystick 
26-3012 Deluxe Joystick 


$129.95 
$179.95 
$399.95 
$599.95 
$18.95 
$24.95 


$14.95 
$19.95 
$39.95 
$34.95 


Full line of printers available: 
C. ITOH Printers 
Panasonic Printers 


Kaypro 2000—the ultimate MS-DOS 
portable computer. LCD screen, 730k 
disk, 758k memory. — $1,895.00 


Call for prices and availability of 


Р ^ your favorite software and 
i hardware. All advertised items 


p subject to availability. Prices do 
not include shipping and handling. All 
of the above units are covered by our 
120 day carry-in warranty. 


DELKER ELECTRONICS, INC. 
P.O. Box 897 408 C Nissan Blvd. 
Smyrna, TN 37167 


m 615-459-2636 
(Tennessee) 


@ 615-254-0088 
(Nashville) 


Visa, Mastercard and American Express 
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like a dictionary, a thesaurus or a book on grammar. 

With Dr. Edward Fry's readability method, you count the 
number of sentences and syllables per hundred words. Then 
plot the numbers on his readability graph to find the grade 
(education) level of the text. 

Robert Gunning computes his Fog Index, which relates 
to the education level of the text, by counting the number 
of sentences and polysyllables per hundred words. Add the 
two numbers together, and then multiply by 0.4 to get the 
Fog Index. 

Dr. Rudolf Flesch's method computes a reading ease 
score; he also has a similar method to compute a human 
interest score by counting the number of personal references 
in the sentences. As in the other methods, you count the 
words and syllables per hundred words; then, to compute 
the reading ease score, multiply the number of sentences per 
hundred words by 1.015; multiply the number of syllables 
per hundred words by 0.846; add them together and subtract 
from 206.835 to get the reading ease score — a number 
between zero (unreadable) and 100 (very easy). 

Readability has been a concern of many for many years. 
The object of writing or reading is clear communication, 
all too often not achieved. Over the years, there have been 
many researchers who have worked on readability. You can 
find out much more about readability and them at your 
local library. Find Dr. Fry's readability graph in the 
December 1977 issue of The Journal of Reading. Find 
Robert Gunning's Fog Index in his book Techniques of 
Clear Writing. And, find Dr. Flesch's readability score in 
his book The Art of Readable Writing. 

The consensus of thought indicates that sentences and 
syllables per hundred words correlate to readability; only 
the method of defining what they mean varies. But these 
are not the only factors that can affect readability and 
understanding; there are many more, subjective ones, that 
are difficult to measure, even to define. Fortunately, these 
objective factors lend themselves to computerization: The 
task of counting sentences is easy; the grammar is rather 
exact. Counting of syllables, while not as exact because of 
the spelling and sound variability in our words, is also easy 
for a computer. 


The Text Analyzer Program 
TSTATS.BA counts the words and syllables, then displays 
these statistics of the text: 


€ Number of characters, words, sentences, punctuation 
marks and syllables 

€ Average lengths of words, sentences and punctuations 

€ Number per hundred of sentences, punctuation marks 
and syllables 

€ The number of and the distribution of words with one 
to five syllables 

€ The Fog Index and the reading ease score 

€ To find the readability according to Dr. Fry, plot the 
number of sentences and syllables per hundred words 
on his readability graph. 


Resident text files and a built-in text editor make text 
analysis an easy task for the 100. The program has only to 
read the file, a character/word at a time and let it fall 
through the algorithm. The algorithm defines a syllable as 





a group of characters including at least one vowel bounded 
by a space or consonant; a word as a group of characters 
bounded by a leading space and a trailing space or 
punctuation mark; and a sentence as a group of words 
followed by the punctuation mark and a space. The 
program loops on it and totals the characters, syllables, 
words and sentences in the the text file; then displays the 
text's statistics. 


Program Description 

TSTRTS.BR consists of four sections: initializations, lines 
0 to 85; directory sign on and file selection prompts in lines 
100 to 190; syllable, word and sentence counting in lines 195 
to 500; and statistics display in lines 1000 to 1520. 

In the initializations section, the program dimensions the 
syllable distribution array 5Β(10) and the directory 
filename array DIR$ (20). The section defines the strings of 
the program and constructs, in lines 40 through 50, a 
machine language program for ап INKEY$ function with a 
Cursor. 

In the directory sign on section, lines 110 to 145 form the 
directory display routine. By using POKE commands, the 
RAM directory is defined in DIRS and then the INSTR 
function searches it for all of the .DO files. Lines 160 to 185 
form the file selection prompt routine which calls the 
INKEY$ program in ML $. Press the cursor keys and ENTER 
to select the text file to analyze. 

In the syllable, word and sentence section, the function 
of the variables are: AS, the input character or the end 
character of a word; B$, a word; S, a syllable flag (it insures 
that two vowels in sequence count only as one syllable); WS, 
the count of syllables in a word; X, the length of a word; 
SY, the count of the total number of syllables; I, the INSTR 
value; SC, the count of sentences; and PC, the count of the 
punctuation marks. 

In the statistics display section, Line 1400 calculates the 
Fog Index and lines 1410 and 1420 calculate the reading 
score. 


To Use It 

Just move the cursor to your text file and press ENTER. 
In a minute or two (35 seconds per 100 words) the file's 
statistics display. The statistics will vary depending on the 
type of writing, technical or prose; the style, formal or 
informal; the writer's education level, high or low; and, of 
course, imperfections of the counting algorithm. 

It's best to gauge the meaning of text statistics by 
analyzing some text that you understand which was written 
by writers of acknowledged skill. Just remember, 
TSTATS.BA is only another writing tool, and like a 
dictionary, a thesaurus, or a grammar book, it won't 
improve your writing. You have to do that for yourself. 
Practice. 0 





See you at | 
PCMfest—Chicago 
.May23-25 ` 


Super 
Utility 


Fixed/Floppy Disk Tools for Tandy 1000, 1200, 


2000, ІВМ PC", XT", AT", Compaq, AT&T 6300, 
Leading Edge, and many other PC compatibles. 


Data file recovery, disk exploring, 
zapping, and MUCH more! 


Accidental deletions and disk directory problems can happen to 
anyone at anytime... a power spike, fingerprint, speck of dust, 
hardware problem, or simply typing DEL *.* in the wrong sub- 
directory can destroy critical data in a moment without warning. 
Therefore we introduce Super Utility for the PC - an easy to use 
disk utility containing many functions sorely needed in today's 
PC/MS-DOS computing environment. /t's really great! 


With SU/PC you can restore damaged or deleted files using two 
different methods (one very easy, the other a bit tougher). Even 
clusters of an erased file assigned to another file can still be 
restored, unless the user has physically written over every byte of 
the original data (most applicable with word processing files). 


In addition to file repair and recovery, Super Utility provides 
sector verify, sector editing, modification of sectors in Hex or ASCII, 
ease of renaming of files and setting their attributes (lock and 
unlock files, make them visible/invisible, etc.), ASCII string search, 
copying sectors to a file, diagnostic sector checking, mapping of 
the FAT table of a file or an entire drive, visual graphics pertaining to 
your system, and full directory and sub-directory editing without 
endless menu-hopping - all in one program. Want to change the 
name of your sub-directrory without copying all your files to a new 
one? Just retype a new name over the old one with SU/PC! The 
sector display mode displays all 512 bytes on-screen at one time 
and allows you to fully explore your disks. SEARCH and CHANGE 
are nice here too! Will find any occurance of a byte or string on your 
disk. Compatible with DOS versions 2.0 - 3.1 оп most systems. 
Some computers may require the use of PC-DOS. Color, 
composite, or monochrome video are supported. A great tool for 
fixed disk users as well as floppy. Also compatible with IOMEGA's 
Bernoulli Box™ storage device (distributed by Tandy as the 
Cartrdge Disk System). SU/PC is a totally new program that fills the 
gaps that PC users have most need of and have asked us for. It's 
aimed at.the beginner, the "office user", hobbiests, students of the 
PC, or programmers alike. Unprotected media. 


Super Utility/PC 
олу $89.95 


Please see Review on Page 116. 


-POWrE33O0rc- 


17060 Dallas Parkway, Suite 114 
Dallas, Tx 75248 , 214/733-4475 


Ordering, questions, and support always available on the PowerSoft Sig! 
Type GO PCS-56 from any prompt on CompuServe™! 


Available worldwide through Radio Shack™ 
Express-Order - Cat # 90-0407 


Prepaid or charge card orders (only) include free UPS shipping to US addresses! Blue 
label, COD, or over-night shipping available at extra charge. Visa«MasterCard 
accepted. Canada, please add $3; airmail. Other countries add $15 for airmail. 
Foreign orders, please use Charge Cards ONLY. Checks not drawn on US banks not 
accepted. Texas residents must add appropriate sales tax! 


Requirements: ΙΒΜ PC or compatible running PC/MS-DOS 2.x-3.x, minimum of 128K 
пето and at least one disk drive. PC-DOS тау be required for use, 

ΙΒΜ, PC, XT, AT are registered trademarks of International Business Machines Corp. 
MS™ is a regstered tm of Microsoft. Radio Shack™ is a registered Im of Tandy Corp. 
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Figure 1 
Dr. Edward Fry's Readability Graph 
Syllables per Hundred Words 
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WORD PROCESSING 800-231-3680 
TRAINING GUIDE for 
Radio Shack? Tandy® 


IBM-PC and TRS-80 

Become an expert in the advanced word processing 

techniques in just a few hours. Develop skills that can 

be applied to any of the best selling word processors, EPSON PRINTERS 
no matter which system you decide to buy. Includes 

program disk so you learn quickly by doing. The train- ΓΉΟΡΙΕ you Trust to give you the very best! 
ing guide and training program disk (a $50.00 value) si 

will be sent to you absolutely free, with no obligation, 
upon receipt of this filled out coupon. Offer good for 
a limited time. 


шш шш шш шш шш шш шш шш ыш шш шш шш шш шш шш шш шш шш — ° * Lowest 
[—— = Discount 


























i LeScript Word Processing Systems | 
P.O. Box 361136, Melbourne, FL 32936 Prices 

[ (or call 1-305-259-9397) 1 

Type of computer system: i 
' с IBM-PC/XT/AT/PC jr D TANDY-1000 1 * Reliable 
| D TANDY-2000 о TRS-80 1/3/4/4P i Service 
à D TANDY-1200 о TRS-80 2/12/16 з 
- Name { Products 
I $ 
И Address I "World's largest independent 
l os State Ζρ ' authorized computer Dealer" 
Y I 22511 Katy Fwy., Katy (Houston) Texas 77450 
Ш Telephone E (713) 3920747 Telex 774132 

(Computer names are tradenames and/or trademarks of their respective 
i manufacturers.) i 
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The listing: 


g ' TSTATS.BA А TEXT ANALYZER 

5 ' BY RONALD F. BALONIS APRIL 1, 1984 
10 CLEAR 599:DEFINT A-Z:DIM SB(19),DX$(2 
9) 

15 TLES-"-—- TEXT ANALYSIS ===" 

29 CRLFS-OHR$(13)-4CHR$ (19) 

39 PUNCTS-CHRS$(34)4",;:":DIR$-"":DX$-"" 
Ag MLS$=CHR$ (295)+CHR$ (203) «CHR$ (18) 

5g MLS-MLS-&CHR$(119)4CHR$ (291) 

69 F$2"[ ]N \ ":FX$-CHR$ (192) 

65 CMDS=" +++ PRESS <":'---CMD PROMPT 
79 FOR I=152 TO 155 

75. CMD$=CMD$+CHRS$ (I) 


s qm A LLL EI HET LELEL 
PCM, ` вая сорер LISTING 
ΠπππαιπππππΠ ΠΠ ТИН ETI 


| 














89 NEXT I 

85 CMD$-CMD$4"» ἃ «ENTER» +4++":I=9:II=9 
9g ' 

95 '.--SIGN ON & DISPLAY .DO FILES 





199 CLS:PRINTG9,TLES:PRINT:BEEP 

119 X-VARPTR(DIR$):POKE κ, 240 

115 POKE X41,174:POKE X42,249 

129 I-INSTR(I41,DIRS,FX$):IF 1-2 THEN 14 
5 

125 DX$-MIDS$(DIR$,I41,10) 

130 IF MID$(DX$,9,2)«»"DO" THEN 129 

135 II-II41:DX$(II)-DX$ 

149 PRINTUSINGF$;MID$(DX$,3,6);:GOTO 129 
145 PRINT"[ ]MENU":I-1 

150 PRINTQ284,CMD$;:'---SELECT A FILE 
155 IF І<1 OR I>II+1 THEN I-1 

169 PRINTQ7141*19,"";:'---FILE CURSOR 
165 KB!-PEEK(VARPTR(ML$)42)*256 

179 KB!=KB!+PEEK(VARPTR(ML$) +1) 

175 KB=9: CALL KB!,g,VARPTR(KB):'ML INKEY 
$ 

189 IF KB-39 THEN I-I-4 

181 IF KB-31 THEN I-I44 

182 ТЕ KB-28 THEN I-I41 
























183 IF KB-29 THEN I-I-1 
184 IF КВ<>13 THEN 155 
185 IF I-II41 THEN MENU 





199 | F$-MIDS(DX$(1),3,6) 

195 CLS:PRINTQQ,F$;:PRINTQ9,TLES 

230 OPEN F$ FOR INPUT AS 1:'ANALYZE FILE 
295 IF EOF(1) THEN 270 ELSE AS=INPUTS(1, 









219 IF INSTR(CRLF$,A$) THEN A$-" " 

215 IF B$="" THEN IF А$=" " THEN 205 
229 '---IS IT A SYLABLE? 

225 ON INSTR("AEIOUYaeiouy",A$)4*1 СОТО 2 









239 '---COUNT IT 
235 '.--S-SYLABLE FLAG 



















249 IF S=9 THEN WS=WS+1:S=1:GOTO 269 
245  S=9:'---CONSONANTS RESET FLAG 
255 '---READ IN A COMPLETE WORD 

269 BS=BS+A$:IF AS<>" " THEN 295 
279 IF BS=""THEN 499 

275 '---A WORD! 

289  X=LEN(BS$)-1:A$=MID$(B$,X, 1) 
285 ' 


295 '---COUNT WORDS & LETTERS  B$-WORD 
399  WRD=WRD+1:LTRS=LTRS+X:S=9 

395 '---FOR WORDS ENDING IN E WS=WS-1 
319 IF INSTR("Ee",A$) THEN WS-WS-1 
315 ТЕ WS<l THEN WS-1:'---AT LEAST 1 
329 '---COUNT SYLABLES 


335. SY-SY4WS:SB(WS)-SB(WS) 41:WS-g 
339 '---END OF A SENTENCE? 

335 IF INSTR(".?!",A$) THEN 399: 'ҮЕЅ 
349 I=INSTR(PUNCT$, AS) :'---PUNCT? 
345 ON ї+1 GOTO 499,359,395,395,395 
350 IF X>1 THEN A$=MID$(B$,X-1,1) 

389 '---END OF A SENTENCE? 

385 ОМ INSTR(".?!",A$)41 GOTO 499 

399 SC=SC+1:'---COUNT OF SENTENCES 


395 PC-PC41:'---COUNT OF PUNCTUATION 
499 PRINT@34, USING" #####" ; LTRS; 

419 X-9:B$-"":'---GET ANOTHER WORD 
429 IF EOF(1) THEN 599 ELSE 295 

599 CLOSE 1 

69g ' 


90g '---DISPLAY STATISTICS 

1999 CLS:PRINTF$; : PRINT@8, TLE$: BEEP 
1919 PRINT"STATISTICS AVG LGTH "; 
1915 PRINT"4/19g  SYLB DIST" 

1929 PRINTUSING"CHARS 44H"; LTRS 

1939 PRINTUSING"WORDS #HHH" ; WRDS 

1949 PRINTUSING"SENTS #####" ;SC 

1959 PRINTUSING"PUNCT яе" PC 

1666 PRINTUSING"SYLBS #####" ; SY 

1199 X$-"###.#" 

1119 PRINT@133 ,USINGX$;LTRS/WRDS; 

1129 PRINT@173, USINGXS ;WRDS/SC; 

1139 PRINTG213,USINGX$;WRDS/PC; 

1159 PRINT@181, USINGXS ;199*SC/WRDS ; 
1169 PRINTQ221,USINGX$;19*PC/WRDS: 
1179 PRINT@261,USINGXS ; 199*SY/WRDS; 
1200 Y-68:'---SYLABLE DISTRIBUTION 
1219 FOR I=1 TO 5 

1229 Y-Y44g 

1239 PRINT@Y, USING" #=####";1;SBC(I); 
1249 PRINTUSING" ##.#";199*SB(I)/WRDS 
1259 NEXT I 

149g FOG!=49%(SB(3)+SC)/WRDS 

1419 RSC!-19g*tsC*1.g154SY*.846) /WRDS 
1429 RSC!=296.835-RSC! 

1430 F$-"FOG-444.4 SCORE=###.#" 

159g PRINTUSINGF$;FOG!;RSC!; 

1519 PRINT" «PRESS SPACEBAR>"; 

1529 IF INKEY$" " THEN 1529 ELSE RUN 
1539 '---END OF PROGRAM PCM 
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MET. Feature 1000/1200 /3000 


This utility program lets you print 
graphics on your DMP series printer 


Graphics Screen Dump 


By Peter T. Lee 


program for reproducing the screen image onto a dot 
matrix printer. This allows you to make hardcopies 
of your graphics artwork, charts or other goodies. 

The command is external to MS-DOS. This means it is 
a separate file on the disk and must be loaded into mem- 
ory like any program. This makes it possible to replace this 
command without changing MS-DOS at all. 

Tandy's version of this command supports only their 
CGP-220 Color Ink Jet printer at present. They have a much 
larger line of *DMP" printers capable of graphics, yet these 
are not supported. The reasoning behind this escapes me. 

The program in this article fills the gap. It works exactly 
like GRAPHICS .COM and will work with Tandy's DMP series 
printers and a Tandy 1000, 1200, 3000 or any IBM PC 
compatible computer. Some printers will have to be set to 
the Tandy mode. 

To enter the program, you'll need DEBUG . COM, another 
external command in MS-DOS version 2.0 or higher, or an 
assembler. 

This program was developed completely using DEBUG 
which is why there are no comments (sorry about that). If 
you have any problems or questions, please write me and 
I'll try to answer as soon as possible. 

Here is the dialogue for entering the listing using debug 
(user entries are in bold type): 


T» MS-DOS GRRPHICS.COM command is a utility 


A> debug 

- a100 

XXXX:0100 jmp @2fd 
XXXX 20103 sti 
XXXX:0104 jmp @2b7 


(Continue to enter the rest of the listing.) 


XXXX:@325 mov dx,@2fd 
ΧΧΧΧ:0328 int 27 
XXXX:@32A ENTER 

- rox 

BX NNNN 

: Q 


Peter Lee holds a bachelor of science degree and works 
as a programmer | consultant. He enjoys skiing and 
fishing in his spare time. 
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-rcx 
CX NNNN 
: 32a 
- nscntest.com 
τω 
writing 0328 bytes 
-q 
A> 

This will create the program SCNTEST.COM on your 
diskette in Drive A. To test it, enter SCNTEST at the MS- 
DOS prompt, go into BASIC and generate a screen of 
graphics, then hold down the SHIFT key and press the PRINT 
key. Anything on the screen should now be reproduced by 
the printer. 

To suppress the linefeed character, (you need to do this 
if you get a blank line between lines in the printout) do this: 


A> debug scntest.com 

- е101 0 (If you need to change it back type in e1b1 08) 
τω 

writing 032R bytes 

-η 

A> 

This program uses Interrupt 5, (the SHIFT-PRINT keys 
causes this interrupt) and stays resident in memory once it 
has been called until the system is powered off or rebooted. 
You can run any program to generate your graphics and, 
as long as it does not interfere with Interrupt 5 or write over 
SCNTEST.COM in memory, you can use SHIFT-PRINT to get 
a screen dump. 

SCNTEST has been tested with Tandy’s DMP-105 and 
DMP-430 printers. It should work with the others in the 
DMP series as well, but it has not been tested with other 
printers. I hope you'll try it and let me know how it 
works. 0 


The listing: 
-ulgpg 32a 


9D28:9190 E9FAQgl g2*D 
9D29:9193 FB | 

GD29: 9194 E9B9gl 9287 
9D29: 9197 99 
9D29:9198 9999 


[BK+SI] AL 


gp2g:gl1gA 9999 
#020:019С gggg 
ΡΡ2Ρ:Ρ1ΙΡΕ 0009р 
9D20:9119 EBJE 
gD29:9112 gggg 
gD29:9114 
9D29:9116 

9D29: 9118 

9D29: 911A 
9D29:911¢ 
9D29:G11E 
9D29:9129 
#029:9121 
9D29:9122 
9D29:9123 
9D29:9124 
9D29:9125 
9D29:9126 
9D29:9129 
9D29:9128 
gb29:912D 
9D29:912E 
9D29:9131 
9029:9133 
9D29:9135 
9D29:9137 € 
9D29:9139 
9D29:913A 
9D29:913D 
gD2g:g13F 
gD28:g141 
9D29:9143 

9029 :9144 
9D29:9147 
9D29:914A 
9D29:914B 

9029 :914C 
9D29:914D 
GD29:G14E 
GD29:G14F 
9D29;9159 
9D29:9153 
8D29:9155 
9D29:9157 
9D29:9159 
9D20:915B 
gD2g:g15D 
9D29:9161 
9029:9162 899E1491 
9D29:9166 E8589g 
GD20:9169 2E 
9D29:016A ΑΙ1401 
‘9D29:916D 309996 
9D29:9179 7C97 
9D28:9172 3D4F9g 
gD29:9175 7F92 
9D29:0177 ЕВ16 
9D29:9179 3D4g1F 
9D29:917C 7005 
9D29:917E 200929 
gD29:9181 EBQ3 
9D29:9183 g5Bg1F 
9D29:9186 2E 
9029:9187 A31491 
9D28:g18A E8349g 
GD29:918D EBDA 
9D29:918F 2E 
9D29:9199 agi2g1 
9D29:9193 #401 


{BX+SI] AL 
[BX+8I] AL 
[BX+SI],AL 
91279 

[BX4SI],AL 
[BX+SI] AL 
[BX+SI], AL 
[BX+SI] AL 
[BX+SI] AL 
[BX+SI],AL 
[BX4SI],AL 


[9112], AX 
AL, 12 

AH, AH 

DX; DX 

17 


AL, [9113] 
AL, 5¢ 
9144 
G1A8 


7189 
CX, 3ΕΕΡ 


AL,[9113] 


[8114]; CX 
g1cl 


AX, [9114] 
AX, 999g 
g179 
AX, ØØ4E 
g179 
g18F 
AX,1FA4d 
g183 
AX, 2999 
#186 
AX, 1FBQ 


[9114] ,Ax 
gici 
g169 


AL, [9112] 
AL, ØL 


9D29:9195 2497 
gD29:9197 2E 
9D29:9198 A21291 
9D29:9198 99 
9D29:919C 2E 
9D29:919D Ag1391 
9D29:91Ag #491 
9D29:91A2 2E 
9D29:91A3 A21391 
9D29:91A6 EB91 
9D29:91AB 97 
9D29:91A9 LF 
9D29:91AA 5A 
9D29:9lAB 59 
9D29:91AC 5B 
9D29:gl1AD 58 
9D29:G1AE C3 
9D29:glAF 99 
9D29:g1Bg B9gA 
9D29:9182 3gE4 
9D29:91B4 31D2 
9D29:91B6 CD17 
9D29:91B8 BggD 
9D29:91BA 39Е4 
gD29:91BC 3102 
9D29:91BE 6017 
9D29:91cg. C3 
9D29:g1Cl 5g 
9D29:91C2 53 
gD29:91C3 51 
9D2g:91C4 52 
9D29:g1CS 1E 
8D29:91C6 #6 
gD29:91C7 2E 
9D29:91C8 8BLE1491 
9D29:9g1CC 26 
QD29:G1CD 8A27 
GD29:G1CF 2E 
9D29:91Dg AG13¢1 
9D29:91D3 3C5B 
9D029:91D5 7496 
QD29:91D7 26 
9D29:91D8 8A4791 
9D29:91DB ΕΒ02 
gD29:g1DD 3gCg 
9D29:91DF 99 
9D29:91Eg 96 
GD29:G1E1 9g 
9D29:91E2 2E 
9D29:g1E3 8ALE1291 
9D29:g1E7 8gFB9g 
QD29:G1EA 7595 
gD29:91EC DEC 
9D29:g1EE EB7A 
9D29:g1Fg 9g 
9D29:glFl 8ØFBØL 
9D29:91F4 7519 
9D29:glF6 8gEAQl 
9D29:g1F9 Blg6 
9D29:91FB D2E4 
9D29:91FD B192 
9D29:G1FF D2E8 
9D29:9291 g8CA 
9D29:9293 EB65 
9D29:9295 99 
9D29:926 89FBg2 
9D29:9299 7519 
9D2g:929B 89EAg3 
9D29:92gE B1g5 





AL,97 


[7112],AL 


AL, [8113] 
AL, 91 


[9113], AL 


BX, [2114] 
AH, [BX] 


AL, [9113] 
AL, 5B 
g1DD 


AL, [BX+91] 
GDF 
AL, AL 


BL, [9112] 
BL, gg 
giFl 
AH} 1 
926A 


BL,g1 
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Wondering where to grow? 


Why not get IBM compatibility with 
Tandy's 1200, or the new 3000, and 
take your OS-9 programs with you? 


TLM's PC68K puts the 68000/68010 
processor and Microware's OS-9 
together in any IBM, or compatible, 
PC/XT/AT system, providing the 
best of both worlds with fully 
concurrent PC / 68000 operation. 


ο Powerful languages such as 
BASICO9, PASCAL and C 

e DYNACALC for spread sheet 
processing 

e The power of the 68000/68010 
e The price/performance and 
flexibility of the Tandy 1200 
and 3000 

TLM's PC68K. . . A great family 
to grow up with! 


ΙΒΜ is a regist f International Busi Гоги Machines. 
ος iN a registered ta ademark of Computer етв Center 
Amd stered trademark of Microwart hf e Systems το om 
CPM GBK is a Жы eea t 'ademark of Digita! 
"to а! Pete ede adem; er py ihe ενώ 
UNIX I registered t fedem rk οἱ АТАТ 





CLOCK SPEED 
8/10/12.5 MHZ 
Without wait states 


HARDWARE 

2 Parallel Ports 

3-9 Serial Ports 

68881 Floating point co-processor 
(optional) 

Memory mapped dual port bus for 
high speed DMA transfers 

Real time clock with battery 
backup 

Up to 16 boards can run con- 
currently from one AT/XT/PC bus 


MEMORY 

1-2 MB OF RAM 

(1 MB on board standard) 

8K-32K of ROM 

2K-8K of battery backed RAM 

MULTI-USER 

3-9 users (3 standard) 

High speed "Tick" timer with 10ms 
accuracy for efficient multi-user 
time slicing. 


TLM Systems 


West: 4704 W. Jennifer, Suite 105, Fresno, CA 93711 209/276-2345 


OPERATING SYSTEMS 

OS-9 (Multi-user UNIX look-alike) 

C/PM-68K (popular single user OS) 

Both support concurrent access 
to PC DOS 


SOFTWARE 

Software selectable OS 
environment 

ΙΒΜ Color/Mono Graphics Support 

Local and Global disk caching for 
maximum speed and efficient 
data transfer 

COMMUNICATIONS 

Powerful asynchronous/ 
synchronous data 
communications capability 

Bisynchronous SNA 3270, X.25, etc. 

MISCELLANEOUS FEATURES 

Remote and Local reset (hardware 
or software selectable) 

Remote and Local Non-maskable 
Interrupts (NMI) 

Stand alone hardware capability 
(without AT/XT/PC support) 


I East: 67 Grandview Avenue, Pleasantville, NY 10570 914/747-1450 


9D29:9219 
@020:0212 
00200215 
0020:0216 
9D29:9218 
GD29: 921A 
9D29:921B 
9029 :921E 
gp29:9229 
90290:9223 
9D29:9225 
9D29: 9227 
GD29: 9229 
9029:922B 
9D29:922D 
9D29:922F 
9D29:9239 
9D29:9233 
9D29:G235 
9D29:9238 
gD29:923A 
|. 9D29:923c 
9D29:923E 
9D29: 9249 
9D29: 9242 
9D29:9244 
#029:0245 
#029:9228 
9D29:924A 
gD29:924D 
9029:924F 
9D29:9251 
9029:9253. 
9D29:9255 
9n29:9257 
gD29:2259 
GD29: 925A 
GD29:925D 
9D29:925F 
9D29:9262 
9D29:0264 
9D29:9266 
9D29: 9268 
GD29: 926A 
9029:926D 
φο26:826Ε 
ο 026; 6272 
GD29: 9274 
9D29:9276 
(9D29: 9279 
‘GD29: 927B 
9D29:927D 
9D29:9289 
9D20: 9282 
9D29: 9284 
9D29; 9287 
D20: 9289 
9D29: 9288 
9D29:928E 
9D29: 9299 
2D29:9292 
9D29:0295 
9D29: 9297 
GD29: 9299 
ρο2ῤ:β296 
9029:929E 
||. 9D29:92Ag 
9D29:92A2 
9D29:902A4 
9D29:02A6 
2924 :42Α8 


D2E4 
B193 
D2E8 
0804 
EB5g 
9g 
8gFBg3 
751g 
8GE497 
B194 
D2E4 
B14 
D2E8 
g8C4 
EB3B 
9g 
89FBg4 
751g 
BEAUF 
3193 
D2E4 
8195 
D2E8 
g8c4 
EB26 
9g. 
8gFB25 
7516 
BgEALF 
B192 
D2E4 
B16 
D2E8 
98C4 
ЕВ11 
99 
82FB96 
75GB 
8GE43F 
DIES 
B107 
D2E8 
g8G4 
BJEA7E 
3gcg 
F6G4g1 
7492 
gcag 


F6CAg2 


7492 
gc2g 
F6C494 
7492 | 
gcig 
F6C498 
7492 
gcgs 
F6C419 
7492 
φορα 
F6C429 
7492 
gcg2 
F6C449 
7492 
#891 
gc8g 
3gEA4 
3192 
CD17 
Bg8g 


9D29:92AA 
9D29:92AC 
9D29:92AE 
9D29:92Bg 
9D29:9281 
9D29:92B2 
9D29:92B3 
βο29: 284 
9D29:92B5 
9D29:9286 
@020:02В7 
@0220:02В8 
#029:92В9 
9D29:92BA 
9D29:928B 
9D29:92BC 
9029 :02BD 
gD29:92Cg 
gD29:92C2 
gp2g:9205 
gD29:92C7 
gD29:92C9 
9D298:92CA 
9D29:02CB 
9D29:92CC 
9D29:92CD 
9D20:02CE 
9D29:2CF 
GD20:92D¢ 
9D29:92D4 
9D29:92D6 
9D29:902D8 
9D29:92DB 
9D29:92DD 
9D29;G2DF 
9D29:G2E1 
9D29:G2E6 
9D29:92E9 
9D29:92EB 
9D29:92ED 
gD2g:g2EF 


/9029:92F1 
9D29:92F6 Ø 


9029 :92F7 
9D29:92F8 
gD29:g2F9 
9D29:902FA 
9D29:92FB 
9D29:92FC 
gD29:92FD 
gD29: 939g 
gD29:9391 
9D29:9394 
9D29:0395 
9D29:9398 
9D20: 039A 
9D20:939C 
920: 0309F 
gD29:9319g 
9D29:9313 
gD29:9316 


119029:9317 


2924 :031Α 
9D29:931D 
ў029:9329 
9D29:9322 
gD29:9325 
gD29:9328 
gD29:932A 
-q 


39E4 
31D2 
CD17 
97 
1F 
5A 
59 
5B 
58 
сЗ 
5g 
53 
51 
52 
1Е 


FF2E1691 
3106 

BEDS 
Agpgg5 
3091 

7592 

ЕВ15 
c696929591 
E837FE 
BOLE 

3gE4 

3102 

ср17 
ΠΠ 


1Е 
5A 

59 

5B 

58 

CF 
889999 
2E 
439991 
2E 
A292g1 
310g 
8ED8 
A1149g 
2E 
A31691 
A1169g 
2E 
431891 
B89ggg1 
A31499 
8068 
A31699 
BAFDQ2 
0027 
9999 





AL, [9949] 
AL, βά 
254 

ES 

ps 

рх 

Cx 

BX 

AX 


FAR [6116] 

AX, AX 

DS, AX 

AL, [9599] 

AL, 91 

@2Е1 

g2F6 

BYTE PTR [9599], 91 
2g 


[219g] AX 


[9192] , AL 
AX,AX 
DS,AX 
ΑΧ, [9914]. 


[β116],ΑΧ 
AX, [9916] 


[2118] , Ax 
AX, 9199 
[9914], Ax 
AX, CS 
[PPLE] AX 
DX,g2FD 

27 
[BX4SI],AL 


PCH) 
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It's the Holmes ___It's the Holmes Engineering/PCSG “chipmunk” — — — — PCSG “chipmunk” 








Uses the main menu concept. You see the 
disk directory instantly, arranged on your 
M-100 screen like your main menu. Just move 
the widebar cursor and transfer files with a 
function key. You can run a file directly from 
the diskette with the ENTER key. Uses 3%" 
microfloppy diskettes that have a rigid plastic 
casing and a metal core. They’re tough and 
nonflexible. You can carry several in a shirt 
pocket without damage. There’s 358K on a 
diskette. Ten of these in your briefcase and 
you've got 35 megabytes. 

Drive weighs only three lbs. and it works 
directly from the 110 outlet and recharges at the 
same time. It recharges in six hours with 
thousands of pages transferred between 
charges. It's compact, with dimensions of 24” 
x 5%" x 7.5"; and fits easily into your briefcase 
along with your Model 100 or 200. 

Machine code programs, BASIC pro- 
grams, Lucid files and documents all are saved 
and retrieved with no protocol—instantly, ready 
to run. 

In a special association, Holmes En- 
gineering and PCSG have worked together 
combining the hardware knowledge of Holmes 
and the software expertise of PCSG. The re- 
sult is a product that can only be regarded as 
excellent. 





You see the disk directory 
instantly; works just like the 
main menu 





Here is what is really exciting. The port- 
able disk drive has Random Access. Included 
as part of the operating system in the drive 
(ROM) is a very powerful disk BASIC. 

This means that you can have BASIC 
programs that will access the diskette and read 
and write records directly on the diskette. 

Just imagine yourself with this kind of 
capability. 


ap 
ASK ABOUT 


BUDGET MODEL 
$399. 


Database — The portable disk drive stores 
your mailing list, inventory items, part #s and 
descriptions or any other data that you need 
to recall. 





358K on a diskette 





Invoice (purchase order)—At the touch of 
a button you can print out your sequentially 
numbered, professionally done invoices. This 
is truly professional invoicing capability. 

Purchase orders are just as easy. 

Sort — This excellent utility allows you 
rapid sorting of any records you have compiled. 
You can write the newly sorted list back in the 
same file on the diskette or to a new file. 

Telecom interface — 1f you are a user that 
likes to access other computers or databases 
(for example CompuServe) by telephone then 
this powerful facility alone is worth the price of 
the disk drive. You can automatically download 
and upload information onto the diskette. 

Calendar — Everyone who has seen this 
program has said, ''This is the first calendar/ 





Includes a library of 
six powerful programs 


for the Model 100/200 
NEW LOW PRICE 






$499. 


diary/scheduler on any computer anywhere that 
I can use. It is so functional.”’ 

The calendar program is usable for two 
reasons, first it is designed correctly, and 
second you have the memory (358K) on the 
diskette to log and access a tremendous amount 
of notes over a long period of time. 

Personal Finance Manager — This 
wonderful program truly lets you keep track of 
your finances. 

АП your records are kept on the diskette. 
Bank accounts (checking and savings) and 
charge accounts such as MasterCard and Visa. 

We at PCSG believe we have the ultimate 
Model 100 system, the Portable Disk Drive 
plus the Lucid spreadsheet on snap-in ROM, 
Write ROM word processing and the new 64K 
RAM expansion now available from PCSG. 

We want you to find out for yourself at no 
risk. If you aren't totally satisfied within 30 
days, simply return the disk drive for a full 
refund. Priced at $499.00 , including the soft- 
ware library. MasterCard, Visa, COD. 


PORTABLE 


СОМА ЛЕК | 
SUPORTI 


ORQUP 
1-214-351-0564 


11035 Harry Hines Blvd., #207 
Dallas, Texas 75229 


es PCSG offers a 30-day/money-back trial! iw 


The following program listings Listing of: FERIOOTS.BRS 


were omitted from “Fun with 69999 REM FGRIDOTS 
69910 FOR X=@ TO 649 STEP 3 


9 ээ 
Filters, January 1986, Page 48. | — ¿2929 ron v-9 то 499 STEP 3 
(1168939 PSET(X,Y),1 
69949 NEXT Y 
69959 NEXT X 





Listing of: FOVALDOT. BAS 


69999 REM FOVALDOT 
49900 REM SCRDISK 69919 E-1 

49919 DEF SEG-SHEQgÓ 60029 FOR R-E TO 125 STEP 2 

49920 OUT &HLAG, &H31 69939 FOR A=-R TO R 

49939 BSAVE"B:FILEl",9g,3299g 60040 X=(R¥R-A*A) 

49049 OUT &HlAg,&H32 69958 Y=SQR(X) 

49959 BSAVE"B:FILE2",9, 32990 69969 Y-INT(Y-.5) 

49969 OUT &H1AQ,&H34 69979 PSET(2*(A439)4269,23-Y4179) ,7 
40979 BSAVE"B: FILE3", Ø, 32999 69989 PSET(2*(A439)4260,23*4Y4170),5 
69999 NEXT A 

69199 NEXT R 


Listing of: SCRDISK.BAS 








Listing of: DISKSCR. BAS 


Listing of: FGRIDTH.BAS 
49909 REM DISKSCR 
49919 SCREEN g:CLS:KEY OFF:SCREEN 3:COLOR 1,1 69999 REM FGRIDTH 
40920 OUT. &HLAG,&H31 69919 FOR Y= TO 499 STEP 3 
400390 BLOAD"B: FILEL" 69929 FOR X=9 TO 649 STEP 3 
49949 OUT &HIA,&H32 69939 PSET(X,Y),4 


49959 BLOAD"B:FILE2" КИШ ЫНТА 
40060 OUT &HlAg,&H34 
49079. BLOAD"B:FILEÀ" 60050 NEXT Y 





Listing of: FGRIOLNE.BAS Listing of: FBOROER.BAS 


69909 REM FGRIDLNE 69900 REM FBORDER 

69919 Y1l=9: ¥2=490 69919 LINE(1,1)-(638,398), 
69929 FOR X-9 TO 649 STEP 3 60020 LINECA, g) (639,399), 
69939 LINE(X,Y1)-(X,Y2),1 69930 LINE(5,5)-(634,394), 
69940 NEXT X 69949 LINE(2,2)-(637,397), 
69959 X1-9:X2-649 69959 LINE(4,4)-(635,395), 
69969 FOR Y-g TO 499 STEP 3 69969 LINE(3,3)-(636,396), 
69970 LINE(X1,Y)-(X2,Y),1 69979 LINE(6,6)-(633,393), 
60080 NEXT Y 


Listing of: FCOSINE.BAS 


| 690919 FOR 1-1 TO 639 STEP 5 
60000 REM FHORIZN 699029 LINE(I*3,9)-(639,1),1 
69919 Σι-0:Χ2-649 69939 LINE(639-(143),399)-(9,399-1),2 
69929 FOR Ү= TO 49g STEP 3 69949 LINE(2,399-1)-(1,9),3 
69939 LINE(X1,Y)-(X2,Y),1 69959 LINE(639,1)-(639-1,399),4 
69949 NEXT Y 69969 NEXT I 
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Listing of: FVERTICL.BRS 


69999 REM FVERTICL 

69919 Yl+9:¥2=499 

69920 FOR Χ-ῷ TO 649 STEP 3 
60939 LINE(X,Yl1)-(X,Y2),1 
69948 NEXT X 





Listing of: FDIAGLF T BAS 


69909 REM FDIAGLFT 

69919 Y1-490 : Y2-9 

69929 FOR X-639 TO Ø STEP -12 
69939 LINE(g,499)-(X,Y2),1 
69049 NEXT X 

69959 X1-9:X2-649 

60960 FOR Y-399 TO Ø STEP -12 
69989 NEXT Y 

690999 Y1=9:¥2=490 

69199 FOR X=1 TO 639 STEP 12 
60119 LINE(Z,) - (X, Y2),1 
69129 NEXT X 

69139 X1-9:X2-640 

69149 FOR Y=9 TO 399 STEP 12 
69159 LINE(9,9)-(X2,Y),1 
69169 NEXT Y 


Listing of: FDIRGLDN.BRS 


60000 REM FDIAGLDN 

69919 Y1-499:Y2-9 

69920 FOR X-639 TO Ø STEP -12 
69939 LINE(g,499)-(X,Y2),1 
69049 NEXT X 

69950 X1-9:X2-649 

60060 FOR Y-399 TO Ø STEP -12 
69079 LINE(,4990)-(X2,Y),1 
69989 NEXT Y 








Listing of: FDIRGRHT.BRS 


69999 Y1-499:Y2—-9 

69919 FOR X-639 TO Ø STEP -12 
60929. LINE(649, 499) - (X, Y2),1 
69930 NEXT X 

69949 K1+649:x2=9 

60959 FOR Y=399 TO Ø STEP -12 
60060 LINE(649, 490) -(X2,¥) ,1 
69079 NEXT Y 

69989 Yl1-9:Y2-49g 

69999 FOR X+649 TO Ø STEP -12 
69199 LINE(64g,9)-(X,Y2),1 
69119 NEXT X 

69129 X1-649:X2-0 

69139 FOR Y=9 TO 399 STEP 12 
69149 LINE(649,9)-(X2, Y),1 
69159 NEXT Y 
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Listing of: FDIAGLR2.BAS 


69999 REM FDIAGLR2 

60919 Y1-49g:Y2-9 

69929 FOR X-639 TO g STEP -12 
69930 LINE(649,409)-(X,Y2),1 
60040 NEXT X 

69059 X1=649:x2=9 

60060 FOR Y-399 TO 9 STEP -12 
69979 LINE(649,499)-(X2, Y), 1 
69989 NEXT Y 

69999 Y1-9:Y2-4908 

69199 FOR X=1 TO 639 STEP 12 
69119 LINE(9,2)-(X,Y2),1 
69129 NEXT X 

69139 X1=9:X2=649 

60149 FOR Y=9 TO 399 STEP 12 
69159 LINE(Z,)-(X2,Y),1 
69169 NEXT Y 














Listing of: FDIRGLUP .BRS 


69999 REM FDIAGLUP 

69919 Y1=9:¥2=499 

69920 FOR X=1 TO 639 STEP 12 
69939 LINE(9,) -(X, Y2) ,1 
60050 NEXT X 

69059 X1-0:X2-64g 

69969 FOR Y-g TO 399 STEP 12 
69979 LINE(9, 9) -(X2, Y),1 
60089 NEXT Y 








Listing of: FOLAGPLS.BAS 


60999 REM FDIAGPLS 
69919 Yl-499:Y2-g 

69929 FOR X=639 TO Ø STEP -12 
69939 LINE(2,499)-(X,Y2),1 
69949 NEXT X 

69950 X1-0:X2-649 

69969 FOR Y-399 TO STEP -12 
69979 LINE(g,499)-(X2,Y),1 
690089 NEXT Y 

690099. Y1-9:Y2-49p 

69109 FOR X-1 TO 639 STEP 12 
60119 LINE(9,9)-(X,Y2),1 
69120 NEXT X 

69139 X1-0:X2-649 

69149 FOR Y=g TO 399 STEP 12 
60159 LINE(8,9)-(X2,Y),1 
60160 NEXT Y 

69179 Yl1-499:Y2-g 

69189 FOR X-639 TO Ø STEP -12 
69199 LINE(649,499) -(X,Y2),1 
60299 NEXT X 

60219 X1-649:X2-9 

69229 FOR Y-399 TO g STEP -12 
69239 LINE(649,499)-(X2,Y),1 
60249 NEXT Y 

60259 Y1-9:Y2-49g 

69260 FOR X=649 TO 9 STEP -12 
60276 LINE(649,9) -(X,Y2),1 
60289 NEXT X 

69299 X1-649:X2-9 

69399 FOR Y=9 TO 399 STEP 12 
69319 LINE(649,9)-(X2, Y),1 
69329 NEXT Y 

69339 Y1-9:Y2-49g 

60349 FOR X=9 TO 649 STEP 3 
69359 LINE(X,Y1)-(X,Y2),9 
60369 NEXT X 

69379 X1-9:X2-649 

69389 FOR Y=9 TO 409 STEP 3 
69399 LINE(X1,Y)-(X2,Y),9 
69409 NEXT Y 








Listing of: FDIAGLR4.BAS 


69090 REM FDIAGLR4 
69919 Yl1-499:Y2-9 

60920 FOR X-639 TO Ø STEP -12 
69939 LINE(8,499)-(X,Y2),1 
69049 NEXT X 

60959. X1-9:X2-649 

69969 FOR Υ-399 TO 9 STEP -12 
69979. LINECg, 499) - (X2, Y) ,1 
69989 NEXT Y 

69999 Y1-0:Y2-499 

69199 FOR X=1 TO 639 STEP 12 
69119 LINE(J,9)-(X,Y2),1 
69129 NEXT X 

69130 X1-9:X2-649 

69149 FOR Y-9 TO 399 STEP 12 
60150 LINE(g,9)-(X2,Y),1 
69169 NEXT Y 

69179 Yl-49g:Y2-9 

69189 FOR X-639 TO Ø STEP .12 
69190 LINE(649,499)-(X,Y2),1 
602990 NEXT X 

69219 X1-649:X2-g 

69229 FOR Y-399 TO Ø STEP -12 
69239 LINE(649,499) -(X2, Y), 1 
69249 NEXT Y 

60259 Yl-9:Y2-499 

69269 FOR X-649 TO g STEP -12 
69279 LINE(649,9) -(X, Y2),1 
60289 NEXT X 

69299 X1-649:X2-9 

69399 FOR Y= TO 399 STEP 12 
60310 LINE(649,9)-(X2,Y),1 
60320 NEXT Y 








Listing of: FCIRCLE -BAS 


69999 REM FCIRCLE 
69919 FOR X-1 TO 399 STEP 3 
690929. CIRCLE(329, 299), X, 4 

69939 NEXT X 
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Knowing what's going on behind the 
scenes of BASIC can help improve 


programming techniques 





Interpreting BASIC's 


It is important to understand how 
the BASIC interpreter in your computer 
“interprets” or acts in given situa- 
tions. BASIC can give some seemingly strange 
responses to certain statements. We must be 
able to predict how our particular version of 
BASIC will handle instructions. 

In this article, we will take a brief look at 
the way BASIC thinks, see ways to speed up 
program execution and explore some of the 
screwy aspects of BASIC. 


Order of Operations 

BASIC makes certain assumptions. It also 
performs operations in a predictable fash- 
ion. To first demonstrate those points, let's 
examine BASIC’s “order of operation." 

When BASIC executes math expressions, it 
follows a systematic order. First, it performs 
calculations that are inside parentheses. 
Next, it performs multiplication or division 
operations proceding left to right through 
the expression. Finally, any addition or 
subtraction is done, again, going left to 
right. 

The importance of knowing how the 
computer will handle an expression can be 
demonstrated with the following statement: 


X=1075%*2 


It says, variable X equals 10 divided by five 
multiplied by two. If we multiply five by two, 
we get 10. If we then divide 10 by 10, we 
arrive at a value of one for X. However, if 
we first divide 10 by five, resulting in two, 
and multiply that by two, X would be four. 
So here is a problem which could have two 
answers! Which way will the machine do it? 
Following our rules for “order of opera- 
tions,” we see that the computer works from 
left to the right of the expression. Therefore, 
the correct answer four. 

Try this one: 


N-2*2- (3+1) 


The value of N could be either four or 12, 
depending on which operations you perform 
first. What value will N be when this state- 
ment is run under BASIC? 
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Interpreter 


Two Equal Signs 

At first glance, you might think the 
following statement would generate a syntax 
error: 


20 LETA=B=C 


Surprisingly, it does not! Try it on your 
computer. Many versions of BASIC interpret 
the second equal sign as a logical operator. 
In other words, it kind of acts like an IF/ 
THEN statement and a boolean algebra 
computation. 

In logic comparisions, two states can 
exist, "true" and "false." BASIC interpreters 
typically return values of zero if a test is false 
and -1 if true (or some non-zero value). 
Therfore, the statement LET A = B = C will 
be interpreted by BASIC to say "if B is equal 
to C, assign A a value of -1; otherwise, assign 
В a value of zero." It could be rewritten as: 


IF B = C THEN R = -1 ELSE R = 0 


The advantage of using ΑΞΒΞΟ over the 
IF/THEN statement is obviously brevity. 
Although it is legal, many programmers may 
frown upon its use since it is not as clear to 
the person looking at the program listing as 
the IF statement would be. One of the 
drawbacks to BASIC compared to other 
programming languages is its inherent lack 
of documentation. Such statements as this 
make it all the harder to figure out what is 
going on in a program. 

Logical operators are interesting, and you 
may wish to study the sections on AND, OR 
and NOT in your BASIC owner's manual for 
more information. 


More BASIC Assumptions . 
BASIC may alter things you type in. Key 
in this statement: 


10 N = 0000 


Now list the program. Even though you 
have not edited nor run the program, BASIC 
has made a change. The line now reads 


10N-0 


Under GW-BASIC on the Tandy 1000 and 
2000, we tried entering this statement: 


19 N = 123456789 


By Dan Keen 


Again, BASIC shows it has a mind of its 
own. Typing LIST now reveals that BASIC 
stuck a pound sign (#) on the tail end of the 
number: 


10 N = 1234562838 


Speeding up Exectuion 

By knowing a few things about BASIC, we 
can speed up the execution of our BASIC 
programs. 

Most programmers know a few tricks for 
speeding up programs and saving bytes of 
memory, such as deleting all REM statements, 
using multi-statement lines when possible, 
using subroutines and not over dimension- 
ing arrays. 

Perhaps you might not be aware of some 
other tricks. Structure your calculations so 
as to use as few parentheses as possible (it 
takes several bytes to process parentheses). 

Subroutines should be placed at the 
beginning of a program. DRTR statements 
should also be located among the first few 
lines of the program. When the computer 
encounters a RERD statement, it begins 
searching from the top of the program for 
DATA. Naturally, if the DATA is located in one 
of the first lines of the program, it doesn't 
have to look very long to find it. 

Subscripted variables (arrays) should be 
avoided in calculations and in FOR/NEXT 
loops. 

Use frequently-defined variables early in 
the execution of a program. 

BASIC develops variable lists as the pro- 
gram progresses. Those first used are first on 
the list, and so will be found the quickest. 

When string variables are no longer used 
in a program, null them out by setting them 
equal to a null string (A$=””). Nulling a 
string variable changes its length to zero. 
BASIC will have to do less searching since this 
minimizes the number of variables in use. 


Conclusion 

Hopefully, we have presented some useful 
programming techniques and stimulated 
you to experiment with your version of 
BASIC. Books and manuals don't tell you all 
the things you can do with a language. You 
have to read between the lines and log in 
some time sitting at your console. Making 
discoveries is the fun part of program- 
ming! 


ПЕЕВ Reviews 


MS-DOS Volume 1 
An Excellent Tutorial 


1000/1200/2000/3000 





MS-DOS, Volume 1, The Basics is 
the newest addition in the Tandy family 
of tutorial manuals. Written by David 
A. Lien and Gary Williams, this com- 
pact book is an introduction to MS- 
DOS and its use with the Tandy 1000, 
1200HD and 2000 computers. The book 
is conveniently divided into an intro- 
duction and four parts. 

The introduction, though only a few 
pages in length, clearly explains the 
general purpose of a disk operating 
system and gives a brief description of 
MS-DOS. It also states the book’s 
theme: “This book will take you 
through the most basic commands and 
teach you how to do the things you’re 
likely to need in your day-to-day use of 
the computer. From here on, you'll 
learn by doing." And learn by doing is 
the key approach throughout the book. 

Part One is entitled “Startup to 
Shutdown." It consists of four chapters 
on the rudiments of MS-DOS. You are 
gently led through the initialization 
process of loading MS-DOS and setting 
the date and time. Also, there is a brief 
description of the system prompt. The 
book proceeds to describe several initial 
MS-DOS commands: DATE, TIME, DIR, 
CLS and PRINT. As is the general ap- 
proach throughout the book, you are 
asked to enter the commands and view 
your computer's display, which should, 
if all goes well, be similar to the displays 


given in the book. This technique is a 
quick and easy way to learn; it is also 
a recognizable hallmark for those who 
are familar with David Lien's previous 
works. 

The last chapter of Part One is a short 
but comprehensive review that outlines 
the commands and their functions, 
along with the authors' notes about the 
proper startup and shutdown proce- 
dures. 

Part Two, *Using MS-DOS to Pre- 
pare Your Diskettes," begins with two 
brief paragraphs on the compatibility of 
the Tandy 1000 and 1200HD with the 
IBM PC. The authors conclude, “[com- 
patibility] means software that runs on 
the IBM will usually run on these two 
machines.” The key word, of course, is 
usually, Experience dictates that you 
should actually test, if possible, any 
IBM software on a Tandy before buy- 
ing. Furthermore, the authors fail to 
consider the question of the compatibil- 
ity of IBM software with the Tandy 
2000, though generally IBM PC soft- 
ware will not operate on the 2000. The 
information given here is so sparse and 
impractical that the subject of compat- 
ibility could have been left out entirely. 

The chapter continues with a brief 
but thorough discussion about disk 
capacities, both floppy and hard disks, 
and the differences in floppy diskette 
storage capacity among the three com- 
puters: Tandy 1000, 1200HD and 2000. 
Although this information has little to 
do with using MS-DOS, it is informa- 
tive. 

The remaining chapters of Part Two 
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deal with the practical side of using MS- 
DOS. Step-by-step explanations, along 
with examples, are given for formatting 
floppy diskettes and formatting a hard 
disk. At each step of the procedure, 
simulated displays are given which will 
help you through the process — partic- 
ularly the formatting of a hard disk, 
which can be somewhat complicated. 
The discussion is clear, concise, and the 
explanations are uncluttered with tech- 
nical jargon. 

Following the presentation on for- 
matting, the book covers the various 
procedures for copying files, whether 
you're using floppy diskettes or a hard 
disk. Detailed explanations are pre- 
sented on how to use the formatting and 
copying commands of MS-DOS: 
HSECT, FDISK, CONFIGD, FORMRT, 
HFORMRT, BRCKUP, RESTORE and COPY. 
Not all of these commands will work 
with all three Tandy computers. At 
appropriate junctions in the discussion, 
there are sections set aside explaining 
the differences in commands that exist 
among the three slightly-different MS- 
DOSs — an added feature which is 
quite helpful. 

The remaining chapters of Part Two 


describe the MS-DOS commands for 
duplicating and checking diskettes: 
DISKCOMP (for the Tandy 1000 and 
1200HD), COMPDUPE (for the Tandy 
2000) and CHKDSK. These chapters will 
help you understand the importance of 
maintaining current backups of your 
diskettes, as the authors state, “backup 
copies of diskettes are a way of life with 
computers." Although the discussion is 
brief, it will help you to avoid the agony 
of lost data. 

The last chapter of Part Two is a 
review of the MS-DOS commands 
covered in the previous chapters. The 
commands and their functions are listed 
under the specific Tandy computer for 
which they will work. 

Part Three is entitled *Using MS- 
DOS to Manage Your Files." The first 
chapter begins by defining the three 
major categories of disk files: programs, 
data and system files. It continues by 
briefly discussing two other types: batch 
and BASIC files. 

To illustrate the use of disk files, the 
authors list three BASIC programs which 
are used in subsequent discussions. The 
programs are short and simple. De- 
tailed instructions are given for entering 


them into your computer. 

Using the three BASIC program files, 
MATH.BAS, GREETING.BAS and CON 
VERT.BRS, the MS-DOS COPY com- 
mand is discussed in detail. By the time 
you've gone through the explanations 
and examples, especially the chapter on 
shortcuts and wildcards, you'll be thor- 
oughly familar with, if not an expert on, 
managing disk files. 

The most important topics in the 
book, beginning with Chapter 19 and 
continuing through Chapter 24, are the 
creation and manipulation of data files 
via MS-DOS. The authors demonstrate 
how to combine, print, rename, sort and 
search files, by working through excel- 
lent examples. The commands pre- 
sented are: COPY CON, COPY CON PRN, 
PRINT, RENAME, SORT and FIND. Here 
is where the real power of MS-DOS 
begins to shine. Using these commands 
in various combinations, the book 
clearly shows you how versatile MS- 
DOS is in managing files. 

The last topic of the book is the MS- 
DOS text editor, EDLIN. EDLIN is not 
a command, but a stand alone utility 
program that allows you to create and 
edit your own disk files. It can also be 
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1 “...a little company that has succeeded over the last 
ο five years in giving its customers a lot of value for 
their money..." — Richard O'Reilly, computer columnist 


2 “АП the firm's programs are graced with features that 
e the entire industry should be required to provide. 
Their manuals are the most honest in the industry.” 

— T.R. Reid, syndicated computer columnist 


3 “ , .. the two most important attributes of Software 
° im kg "жс эст» they're priced low, and they 
work well." — The Washington Post 


4 “Unlike the software of many publishers these days, 
• none of The Software Toolworks programs are 
hobbled by copy protection, nor does the company try to 
tie up its customers with mumbo-jumbo licensing- 
agreements...” — eles Times “Computer File" 


5 “I don't know how The Software Toolworks stays in 
e business μας such low prices for such nifty 
products ...’’ — David Gerrold, computer columnist and 


noted science fiction author 


Reading Professor — Boost your p" speed while increasing 
comprehension and retention. Self paces lessons show quick 
improvement with immediate feedback. Includes 48 practice reading 
passages and other exercises. Developed by skilled educators, this 

rogram tracks your progress and monitors reading rates up to 

,500 wpm. Additional libraries available for Junior High, College 
Adult, and Professional levels at $15.95 each. For IBM PC, most 
CP/M-80 computers. — $59.95. 


TO ORDER CALL: 1-800-223-8665; in CA 1-800-228-8665 


— [STAATNLODPmTTA BEER τς 
The Software Toolwérks* | RA 


14478 Glorietta Drive, Sherman Oaks, CA 91423 


U.S. and Canada add $2.00 per order s/h. Overseas orders add $5.00 per order. 
CA residents add 6.5% sales tax. Orders shipped UPS. Dealer inquiries invited. 
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The Software Toolworks C/80 compiler is “ . . . the best 
ο software buy in America ...’’ — Microsystems 


"7 “It would be the best of all possible worlds if some 
• magic diskette could be made that would transform 
any hardware in such a way as to receive The Software 
Toolworks’ numinous software." — Wm. F. Buckley, Jr. 


8 “The Software Toolworks has a whole raft of 

° pe that work, and (the company) sells them for 
reasonable prices. I strongly recommend that you get their 
catalog.” — Dr. J Pournelle, computer colu t 
"Byte" and noted science fiction author 


9 “Опе of the original pioneers in low cost, high quality 


ο software, The Software Toolworks publishes over 50 
solid products in MS-DOS and CP/M for under $60.” 
— Walt Bilofsky, chairman of The Software Toolworks 


10 “All products are shipped within 24 hours, come 
* with a money back guarantee, and free technical 
support is available (though you'll hardly need it).” 

— Joseph Abrams, president of The Software Toolworks 


Mychess — Award-winning world class chess posa featuring 
nine skill levels and over 850 opening moves. Prints moves ani 

saves games in progress. Outstanding graphics display board on 
IBM PC and most popular CP/M computers. — $34.95 

Eliza — The pioneering artificial intelligence program, Eliza is a 
"psychiatrist" that carries on a conversation in plain English. Use 
= ^ YA script, expand it or develop your own. CP/M and MS-DOS. 
— $24. 


The Original Adventure — Explore the dangerous Colossal Cave for 
treasures. Endure mystical spells, overcome adversaries. The only 
official version, uncut, and endorsed by its creators, Crowther and 
Woods. CP/M and MS-DOS — $19.95 


Computer Chef — Original computerized cookbook and recipe file. 

Data base of over 70 recipes with space to add your own. Scale 

ingredient quantities, search recipes by keyword, then display or 

pa your selection. Additional recipes available. CP/M and 
S-DOS. — $29.95 





used to create batch file “programs” 
that can perform tasks automatically. 
Since the program contains its own 
command structure and functions, the 
authors state: “we won't attempt to 
provide a complete course in EDLIN in 
this introductory book ... Volume 2 
covers the subject in full detail." 

You are shown, though, how to create 
a sample file and how to use a few of 
EDLIN's commands for text insertion, 


Software 1000/1200/2000/3000 


The 1040 Solution 
Eases Tax 
Preparation 


It’s that time of year for many of us 
to file our tax returns for 1985. There 
are some who do their own taxes but 
some turn to accountants. Either way, 
we strive for accuracy and speed when 
preparing our returns. 

Creative Solutions, Inc. has the com- 


WHY FIGHT IT?. . SWITCH! 


TABCO PARALLEL Printer Switch 
connect 2 printers to one computer! 
PSM-C/2P — Manual printer switch. 
Prolongs the life of your printer/inter- 
face connectors. Saves time & money! 
Use your existing printer cable to 
connect TAB SWITCH to your compu- 


text deletion, printing and saving the 
completed file. There is much more to 
EDLIN, but our appetites are sufficiently 
whetted for Volume 2. 

The last chapter is an inclusive review 
of the material presented in Part Three. 
All of the MS-DOS commands are 
listed along with their functions and 
descriptions. 

Overall, MS-DOS, Volume 1, The 
Basics is an excellent tutorial. It is 


plete answer to our problems — The 
1040 Solution. The 1040 Solution is 
available for the Tandy 2000-HD and 
any IBM PC-XT compatible. There is 
also a version for the Tandy Model 16. 
The minimum requirements for the 
Tandy 2000 are 256K and a 132 column 
parallel printer, one 5.25-inch quad- 
density floppy disk per 20 tax clients 
and MS-DOS 2.0. 

If you are a professional tax preparer, 
then this system will solve your tax 
preparation problems. The 1040 Solu- 
tion will prepare the following forms 
and schedules: 1040, Pages 1 and 2, 1040 
ES, 1116, 2106, 2119, 2210, 2441, 3468, 
3903, 4136, 4255, 4562, 4797, 4835, 
4972, 5695, 5884, 6251, 6252, Schedules 


written in a smooth, succinct style 
without the verbiage often found in 
other manuals. By the time you've gone 
through it — and you'll be amazed how 
little time it does take — you'll be 
anxiously awaiting Volume 2, as I am. 


(Compusoft Publishing, 535 Broadway, El 
Cajon, California 92021, $7.95) 


— Ralph Rideout 


A, B, C, Р, E, F, G, R, RP, SE and W. 

One of the nicest aspects of The 1040 
Solution is the easy input features. The 
video screens coincide exactly with the 
input sheets supplied for all the tax 
forms processed. If you have used 
COMPUTAX or FASTTAX before, 
then this data entry form will feel 
familiar. 

The system allows you to enter the 
data directly during the client interview, 
or operators can enter the data from the 
client data sheets. Once the data is 
entered, you can calculate the taxes in 
just a few seconds, or you can recall the 
data for editing by going directly to the 
display which needs editing or updat- 
ing. As an example of this updating 


IF YOU CHARGE FOR SERVICES BY THE HOUR OR 


IF YOU CHARGE FOR PARTS, MATERIALS, OR SUPPLIES 
THEN LAWYERS, ACCOUNTANTS, CONSULTANTS, 
TRADESPEOPLE, REPAIRMEN 


— OR ANYONE WHO IS SELF-EMPLOYED — 


THIS ONE IS FOR YOU! 


FEATURES OF THE BUSS.BA PROGRAM: 


THE TIME CLOCKS — Includes two time clocks. Each clock 
will keep the elapsed time on a job; calculate the charge for the 
elapsed time (rates are user setable); and update the proper job 
file with the date, the elapsed time, the charge and an optional 
comment. 


ITEM CHARGES — You can enter a charge to any customer 
account for any service, item or quantity of items. The entries 
may be tagged as taxable or non-taxable, and may include a 
markup or mark-down. The program can automatically 
compute charges as a percentage of some given dollar amount. 
An account can be displayed or printed at any time showing 
current totals for taxable and non-taxable charges, computed 
tax and present balance due. 


NOTE PAD — Keeps notes on individual accounts and will 
display or print the notes for an account as desired. 


LABEL PRINTER -- Prints mailing labels from account files. 


OTHER USES — Track (travel) expenses — compile journal 
and/or ledger — print or display reports. 


ter. Comes complete with two 3.5' 
cables to connect your printers. 
Straight-forward design makes it easy 
to set-up & use. 1 year limited war- 
ranty. 


ORDER TODAY 
Only $69.95 


Other models available. Dealer 
inquiries invited. $2.50 Shipping/ 
Handling. Florida residents add 
5% sales tax. 





Cables built-in 


(optional lengths available) 
Nothing else to buy 
Fingertip control 
Just flick your switch 


See your dealer 
or 
Call 1-800-874-1551 


Requires 24K or 32K Radio Shack Model 100 portable computer. In- 
cludes cassette program tape and instruction manual. Memory alloca- 
tion depends on specific use. A typical use in a 32K Model 100 might be 
50 account files, 100 bytes per account name and address, 20 entries for 
each account, 17 bytes per entry. 


For more information call 919-967-4604 from 6-9 p.m. E.S.T. 
To order, send check or money order for $89.95 plus $3 
for shipping and handling to: Ronald F. Burkart, Rt. 3, 
Box 883, Hillsborough, N.C. 27278 

N.C. residents add 4.5% sales tax. 


TAB SALES CO. 


704 W. Michigan Ave. 
Pensacola, FL 32505 
P.O. Box 8098 Ph: 904-438-6507 


CERTIFICATION 
SEAL 
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feature, when I was preparing my taxes 
with my accountant, I found out I was 
going to owe over $500 in additional 
taxes. We determined how much it 
would take to add to my IRA and 
Kroegh accounts to reduce my taxes to 
a small refund. It took less time to do 
it than trying to describe it here. 

Creative Solutions has another nice 
feature available — the ability to gener- 
ate annual pro-forma data sheets from 
year to year. This feature reduces the 
data entry time by transferring forward 
each year the information such as 
depreciation, taxes paid to state and the 
IRS, adjusted gross income for income 
averaging, the number of dependents 
and their names and other information 
necessary for the next tax year. It's nice 
to be able to start on the next year's 
taxes without having to re-enter all the 
client's information. 

The 1040 Solution has other impor- 
tant features. It will automatically 
calculate the lowest tax alternative 
either by income averaging or the ap- 
propriate tax table. It will prepare three 
different Schedule C's and two different 
2106s, handle six installment sales and 
nine schedule E rental units. It will also 


do subscheduling for Schedule B, 
Schedule E partnerships, estates and 
SBC's. 

Even if you're not a tax accountant, 
this system has such easy data entry that 
with a few minutes of reading the easy- 
to-use manual, you can start preparing 
tax returns. The manual has on the left 
page a picture of the data entry screen 
for the appropriate form and the ac- 
companying right page offers brief 
explanations of what data or codes need 
to be placed in each data field. 

You can start with any data entry 
screen and the tax information can be 
entered in any order. It allows for 
spouse, joint or taxpayer attributes. 
There are express keys which allow you 
to move anywhere on the screen quickly 
and what you see is what you get. There 
are no tax line numbers to remember 
and all calculations are completed after 
the data is entered so there is no wait 
for calculation delays. A typical calcu- 
lation time is in the 30- to 90-second 
range, even for some tough tax situa- 
tions. Sales taxes for each state are 
automatically computed or can be 
overridden by the actual amount. You 
can get a quick review of the tax due/ 


refund and all schedule amounts at any 
time. Any screen can also be easily 
dumped to the printer. 

Perhaps the most important part of 
a good tax system is the ability to get 
the information to the IRS. The 1040 
Solution has several options for the 
printing of the tax forms. First, the 1040 
forms must be on the original forms 
which is easily handled in two ways: 
using an overlay, or printing directly 
onto the form. The other forms can be 
printed as the 1040 forms or you can use 
the computer generated forms printing. 
You can either do individual return 
printing or you can do a batch printing 
of up to 40 clients. 

After you've prepared and printed the 
tax forms, you need to be paid. The 
1040 Solution allows you to prepare 
client transmittal letters which will also 
print the tax due or tax refund amounts 
in the letter body. Estimated tax pay- 
ments can be similarly handled. The 
text of each letter can be constructed 
from paragraphs in your library. To 
accompany the letters, there is the 
invoice, also automatically prepared 
from the data entered for each tax form 
used or upon some other standard rate. 


FAST CASSETTE STORAGE 


for Model 100 Text Files 


* Save .DO files up to THREE times as fast 


* Load text more than TWICE as fast 


CERTIFICATION 
SEAL 
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WHAT IS "FAST"? 


FAST™ is a revolutionary concept in the way the Model 100 
handles the storage and retrieval of text (.DO) files. FAST saves 
or loads text in one continuous stream of data — the same way 
BASIC programs are saved and loaded. The package (compat- 
ible with M/L programs) consists of two easy-to-load programs: 


The SAVER-BACKUP program occupies approximately 900 
bytes of RAM — small enough to always carry along, whether 
at home or on the road. 


The LOADER program, which occupies 2K of memory and 
reserves about 1K during loading, makes loading text easier than 
ever. When loading, a unique Search Mode feature presents the 
name and length of each file encountered, and allows user to 
decide whether to load, or to skip on to the next file on the tape. 
And unlike the "Old Way," the program will warn the user before 
loading if insufficient memory is present, and exactly how much 
more will need to be freed. Error-checking has been improved 
(no more dropping of 256-byte chunks of text), and now you can 
even load flawed tape files — which are usually still usable, and 
maybe even crucial. 


The Facts: The recording time to save a 5K file is now only 39 
sec (vs 106 sec). A 10K file takes 1.1 min (vs 3.4 min). But there's 
more... 
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OTHER FEATURES: 

e Backup all your irreplaceable Text Files (including ADRS and 
NOTE) in one quick, convenient operation. This feature 
alone is worth the price. 

e Verify cassette saves before erasing files from memory. 

e Recover data "lost" after a Cold Start. 


e Store three times as much text on each cassette (500K per 
60' cassette). 


€ Access cassette files three times as fast. 


This totally NEW concept is from MinSof™ — which is committed 
exclusively to developing software for laptop portables. 


Organization, Dealer, and all other inquiries: Send stamped, self- 
addressed envelope for quickest response. 


$19.95 


MinSof, Inc. 
Box 1153 
Minneapolis, MN 
55440 


Check or Money Order 
(Please include ZIP code) 





Creative Solutions also produces 
integrated state tax returns for Arkan- 
sas, Illinois, Indiana, Michigan, New 
York, North Carolina and Oklahoma. 
Outside developers can supply other 
state programs. These state return 
packages use the information entered in 
The 1040 Solution system. 

As with any major piece of software, 
the real savings comes in the amount of 
support you receive from the vendor. 
Creative Solutions publishes on a reg- 
ular basis, The Balance Sheet, which 
supports the user with aids, some pro- 
motional material, notices of new soft- 
ware delivery dates and a list of users. 
Once a year there is a user conference 
presented to interested users. For the 
price of The 1040 Solution, you also get 


Software 100 


Interactive Solutions 
— Database, Word 
Processing and 
Spreadsheets in 
ROM 


Nothing is so characteristic of the 
Model 100 as ROM software. This ever- 
present program magic is the secret of 
the portable’s success. The promise of 
future wonders in plug-in ROM made 
the Model 100 an attractive machine 
from the beginning. Unfortunately, the 
secret of additional ROMs remained 
hidden for far too long. 

Interactive Solutions is Tandy’s latest 
entry in snap-in ROM software. The 
main virtue of Interactive Solutions and 
all ROM software is that it is fast and 
does not use any precious memory. 

Interactive Solutions consists of three 
components: Data Manager, Data Calc 
and Word Processor. Data Manager is 
a screen-oriented filing system. Data 
Calc has spreadsheet-like calculation 
ability and Word Processor is a versatile 
text formatter with a door to the built- 
in Text program and mail merge capa- 
bilities. The whole is truly greater than 
its parts because each module can 
“interact” with the others. 

The documentation supplied with 
Interactive Solutions is good. Tandy 
has once again provided both an 82- 


a guaranteed renewal rate and three 
hours of consultation. After three 
hours, you will be billed $40 per hour. 
During a phone conversation concern- 
ing the use of The 1040 Solution, Crea- 
tive Solutions, Inc. was extremely 
knowledgeable and helpful in solving 
several minor problems I created. 

If you are interested in a professional 
tax preparation system, then I recom- 
mend that you seriously consider The 
1040 Solution for its ease of use and 
excellent support. 


(Creative Solutions, Inc., 230 Collingwood, 
Suite 250, Ann Arbor, MI 48103. 313-995- 
8811. $1495 for the 1985 version, 34 cost of 
1985 version for 1986 renewal.) 


— Vincent Lord 


page manual and a pocket-size “Quick 
Reference” guide. The manual is more 
than adequate and includes sample data 
to step through some simple exercises. 
Disk/ Video Interface users take note: 
The manual also indicates “Interactive 
Solutions is not meant to be used on the 
Disk/ Video Interface.” 

Installation is literally a snap — snap 
off the rear compartment door and snap 
in the ROM module. You do need to 
exercise some care in handling the 
ROM module, however, because it is 
sensitive to static electricity. 

To use Interactive Solutions, you first 
enter a two line BASIC program. From 
then on, running the program is a 
matter of pointing at the BASIC program 
INTSOL on the main menu and pressing 
ENTER. 

Once you start the program, you are 
presented with the opening menu selec- 
tion of the three programs and one of 
the finest user interfaces around. Menus 
include the list of function keys on the 
bottom line of the LCD. To choose a 
menu item, you can either press a 
function key or type the first letter of the 
item name. /nteractive Solutions com- 
bines the Model 100’s use of function 
keys with the commonly-used "first 
initial selection" to make menus com- 
fortable to all. 

Data Manager lets you “paint” a 
format on the screen to assign field 
names, lengths and characteristics of 
your database. Once defined, you can 
begin making entries into your new file. 
The total form size is not limited to the 
Model 100's screen size, but can be up 
to 20 lines long and up to 254 charac- 
ters. The total number of labels and 
fields possible is 20, with each label 


having 16 or fewer characters. The 
layout for each file is stored separately 
as a special text file which, as the 
manual cautions, should only be 
changed using Interactive Solutions. 

If you do have to change the record 
layout, you may be in trouble. When 
modifying a layout, you cannot add or 
delete a field, change the length of any 
field, change the order of fields, change 
the placement of the decimal point, or 
even change the length of a “comment” 
label such as the form name. So if the 
final field of the final record is one 
character short, you will have to start 
over and redesign the form and re-enter 
all the data records. 

Entering information is a simple 
matter of filling in the blanks. Better 
yet, this same blank layout form is used 
again and again for locating specific 
records, designing printed reports and 
even transferring selected information 
from the Data section to the Word or 
Calc sections. Updating entries is a 
matter of locating the record and mak- 
ing any necessary changes. Data offers 
flexible search abilities to make locating 
records a simple process. 

The items in a file can be printed in 
any order and selected based on what- 
ever criteria you choose. The maximum 
width of a report is a disappointing 80 
characters or nine columns. This is 
particularly frustrating since even 
standard-width dot-matrix printers can 
produce 132 characters in condensed 
mode. Reports can be sorted on a single 
field in either ascending or descending 
order. 

If you don't have a printer handy or 
if you want to integrate your report into 
a Word document, Interactive Solu- 
tions features a unique ability to copy 
the report into the Model 100 “paste” 
buffer. Once the report is in the paste 
buffer, simply edit any document, po- 
sition the cursor where you want the 
report and press PASTE. But a word of 
caution — if you exit Interactive Solu- 
tions, the paste buffer is cleared. Make 
sure you paste your report before 
returning to the 100's menu. 

There are times when you need to 
return to the main menu. Unlike many 
programs which prompt you for file- 
names and supply you with a display of 
all files, Interactive Solutions does not 
offer any means of checking filenames. 
So if you forget a name, as I often do, 
you'll be checking back with the menu 
and losing the paste buffer. 

Moving information from Data onto 
the Calc sheet is even nicer. All the 
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selection is done after entering Data 
Calc. Requesting a load from a Data file 
brings up the same layout form with all 
the same rules for choosing the records 
and fields to be incorporated in the 
worksheet. The fields are retrieved in 
the order specified, one record to a row. 
Data Calc is a respectable size spread- 
sheet with 99 rows by 99 columns. It 
incorporates all the basic math opera- 
tors as well as a variety of built-in 
statistical and trigonometric functions. 
Like all computer spreadsheets, Calc 
allows you to locate the text labels and 
numbers on the grid exactly as you 
would on paper. If you start an entry 
with a letter, Calc assumes a label; start 
with a number or a plus (+) or minus 
(5) sign and Calc assumes a number is 
being entered. The distinction is impor- 
tant not only for how the entry is 
aligned in the cell, (left or right) but also 
for how the entry is treated by formulas. 
Formulas are the heart of the spread- 
sheet. They make minor or major 
changes simple. Calc uses column or 
row formulas. Once you enter a formula 
anywhere in a column or row, the 
formula is in effect for the entire row or 
column. If you have used a spreadsheet 
like Lotus 1-2-3, that's quite a switch. 


Besides the unique situation with 
formulas, there are a few notable fea- 
tures missing from Calc. There is no 
way to move information from one part 
of the sheet to another. It is possible to 
insert rows or columns, but this does 
not address all needs. Also missing is a 
quick way to move the cell pointer from 
one location to another. This can be a 
real nuisance if worksheets grow. 

Printing a spreadsheet is a simple 
matter of indicating what you want 
printed. You cannot send printer codes 
from Calc, however, so if you want to 
use condensed print, you must set up 
your printer from BASIC first or paste 
the spreadsheet to the Word section (if 
you have enough memory). As with the 
Data section, any information on a Calc 
sheet can also be included in a Word 
document by using the paste buffer to 
transfer it. 

The Word Processor is the final com- 
ponent. Choosing Word from the Jnter- 
active Solutions menu leads you to 
another choice. Word allows an exit to 
the Text program for creating and 
editing documents. There is also a 
selection for building a print “control” 
file of formatting choices. Merging text 
with information from a Data file is the 


third menu option and printing is the 
final option. 

Word is one of the many answers to 
the need for a companion to Text 
offering more sophisticated print for- 
matting. The formatting capabilities of 
Word are fairly complete. You can build 
a control file for any document to set 
margins, page length, justifiction and 
line spacing. With “dot commands" in 
the document, you can also override 
any of the settings in the control file 
either temporarily or for the remainder 
of the document. Word also handles 
headers and footers, but each is limited 
to a single line. 

As mentioned, you can paste infor- 
mation from either the Data or Calc 
sections into your documents. Word has 
a further connection to Data with the 
*mail-merge" feature. After creating a 
document with field names from a Data 
file, you can choose the merge option 
and select the records to be merged from 
the familiar layout screen. Word does 
the rest! 

Special printer codes are often a 
problem. No matter how many printers 
a program supports, yours is usually not 
one of them. /nteractive Solutions has 
a very simple solution to this dilemma. 





TANDY 1000 


Multifunction Board 


MICRO MAINFRAME 4N1 


512 K Ram Expansion 
RS-232C Serial Port 

DMA Controller 
Clock-Calendar, Optional 


Clock-Calendar/Mouse, Optional 


4N1-1000 OK Ram 
4N1-1256 256K Ram 
4N1-1512512K Ram 


THD-1000 10 Meg Hard Disk . 


TANDY-1000 
CALL NOW 


(916) 635-3997 


Call for 
LATEST 
Micro Mainframe PRICES!!! 
11285-E Sunrise Gold Circle (800) 
245-6228 


BBS (916) 635-6175 Rancho Cordova, CA 95670 
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10 MEG 


1/2 Height 


TOLL FREE ORDER LINE 
(800) 245-6228 


*kokokok k UPGRADES" 
FOR MODEL 1200 
and IBM PC 


MULTIFUNCTION 
CARD (Ser. Par. 
Real Time Clock 
Game Port 0-384K) 
each 64K installed 


Color Graphics Card 
(with Composite 
& Light Pen Ports) 


FOR MODEL 1000 
SECOND DRIVE 
(Exact Match) 


HARD DRIVE & 
CONTROLLER 


Low Power 


OUR “NEIGHBORHOOD 


PRICE "Sont" 
$149. $759.20 
$10. $95. 00 
00 
$110. meee 
EQUIVALENT 


$124. $299.99 


$575.$1,000.99 


WARRANTY 
1 YR. ON ALL ITEMS 


M.C. & VISA Accepted 

OWL-Services 

P.O. Box 116-D 

Mertztown, PA. 
19539 


PA Res Include 6 % Tax 
ῬΑ (215) 682-6855 







Discover a Whole New World 
of TV Entertainment! 


User Installable! Over 100 Channels! 
Uncut Movies! Specials! Sports! 
News! Weather! Music Videos! 


U.L. 
Approved 





Now you can enjoy it all! 24-hour non-stop entertain- 
ment that you simply can't get from local TV, cable, and 
even video tape! You'll see the hottest stars, recent un- 
cut and uninterrupted movies, the ultimate in sports 
coverage—and the best part is, there are no monthly 
fees to pay. You'll see exciting family-oriented pro- 


Entire 
System 


$1519 


m Totally Automatic System With 87/2 -Ft. 
Dish, Receiver and Wireless Remote Control 


m Comes With ΑΙΙ Accessories Needed for 
Complete Do-it-Yourself Installation 


m Descrambler Ready 


Handy Wireless Remote Lets You Change 
Channels, Control Volume and Fine-Tune 


Т 


= 


ТЮР qt 10 mp 0; 0 0:0 ~0 -D 


grams, plus music videos, FM broadcasts and movies 
with provision for stereo, and 24-hour news coverage 
on both TV and radio. It all adds up to out-of-this-world 
TV viewing at a down-to-earth price. Come in today and 
discover how easy it is to enjoy satellite programming! 
Includes complete installation manual. 


NOCONA ELECTRONICS 


UPS Shipping 


Box593 * 


Nocona, TX 76255 





A PRT.DO file, which you can custom- 
ize, establishes all special printer func- 
tions such as underlining, condensed 
print and bold, and it allows you to give 
each one a single-letter name. That way, 
no matter what your printer, /nteractive 
Solutions can take advantage of its 
special print functions. My only com- 
plaint is that special print controls do 
not work in headers and footers. The 
manual neither mentions nor explains 
this omission. 

Probably the most useful feature that 
Word lacks is some form of on-screen 
print preview. The only way to check 
such items as line ends, page ends and 
overall appearance is to print the doc- 
ument. And you will need to check page 
ends since Word does not correct for 
one line “widows” and “orphans” at the 


Software 1000/1200/3000 


20th Century 
Shoebox — A Catch- 
АП Filing System 


What do you do with a shoebox? 
Stuff it with baseball cards, marbles, 
strange-looking pennies, lucky stones, 
and then, later in life, the more mun- 
dane coupons, bills or receipts. This is 
the “entry-first accounting" premise of 
Twentieth Century Shoebox, a personal 
finance manager written in Turbo PAS- 
CAL from Levins Engineering. 

The idea is to throw information into 
your "shoeboxes," (files) and worry 
about organizing them later. No knowl- 
edge of accounting is necessary, and in 
less than an hour, you should be famil- 
iar enough with the material to start 
working. 

The non-protected disk contains two 
sample files and a one-page tutorial. 
The latter is probably insufficient for 
most users, but the excellent, context- 
sensitive, on-line help screens more than 
make up for this weakness. Also in- 
cluded are directions for starting four 
files — Tax Records, Coupon Organ- 
izer, Travel Expenses and Computer 
Use Log. 

You are always in one of four modes: 
Enter (to enter new information); 
Browse (to look through and/or edit 
existing entries); Report (to write to 


bottom and top of pages, respectively. 

If your primary needs are for data 
tracking and print formatting, with 
some light spreadsheet work, Interac- 
tive Solutions may be just the ROM for 
you. It's fast and it leaves all your 
precious RAM for data storage. Like all 
integrated programs, /nteractive Solu- 
tions offers a common interface and 
good information sharing among the 
applications. Also, like most integrated 
software, it sacrifices some important 
functions — particularly in Data Calc. 
Fortunately, while individual modules 
may be lacking, they add up to the secret 
of ROM. 


(Interactive Solutions distributed by Radio 
Shack, Cat. No. 26-3844, supplied on plug- 
in ROM, requires 16K, $149.95) 


either screen or printer either full or 
partial reports); and System (to return 
to DOS, change to color or B/W mode 
and to choose to work on either a new 
or existing file). These four options are 
displayed at the bottom of the screen, 
and moving from one to another is a 
simple, one-key operation. Also dis- 
played are the current file, available 
functions and the last entry. 

Perhaps a description of a file I 
created would best outline the proce- 
dures. I first chose the name *Hobbies" 
in System mode to start a new shoebox, 
then pressed ESC to go to Enter mode. 
Immediately, | was prompted for the 
data and amount (limited to four digits 
plus two decimal places) of the first 
entry. For the prompt “Notes” (limited 
to 10 characters or less) I entered 
"Hardware," for "Tag" (limited to 18 
characters or less) *Radio Shack," and 
for “Category,” (limited to 11 charac- 
ters or less) *Computer." For my second 
record, after the date and amount, I 
entered “Jazz CD," “Ernie’s Empo- 
rium" and “Music.” For the third, I 
typed "Literature," “Walden’s” and 
*Books." For the fourth entry, I used 
"Software V" (*V" for VISA) and 
“Radio Shack." Since I had the “Tag- 
Matching" option on, the category 
“Computer” was automatically chosen 
by the program. 

That's it! Just keep adding records, 
making any changes or modifications 
you wish at any time. Note the extreme 
flexibility of the program, as well as the 
use of multiple notes. No formal struc- 
turing is required prior to beginning a 
file, although, as in most programs, the 
more thought given to set-up, the more 
streamlined the file. 


By now moving into Report mode, it 
is possible to print to screen or printer 
either a full or partial report. I can 
search, for example, for all entries 
containing “VISA” or “Jazz” or both. 
Other logical operators are not sup- 
ported. 

The software lends itself readily to 
files not usually associated with ac- 
counting. For instance, one of the 
suggested shoeboxes is “Coupon Or- 
ganizer," with major categories such as 
“Cereals” and “Beverages,” specific 
brands as the tags and the expiration 
date of the coupon as the date. The 
running total would be the value of all 
the coupons. 

My wife immediately thought of 
starting a file for the high school year- 
book she sponsors, using fund raising 
activities as the major categories and 
student names and methods of billings 
as some of the possible tags. My son 
experimented with tracking his exten- 
sive book and comic collection. 

Though certainly not suitable for 
business accounting, Shoebox is worthy 
of consideration as a personal account- 
ing system, especially for the price. The 
only real complaint I had involved the 
rather untidy screen displays. A call to 
Levins, however, assured me that this 
problem had been resolved in newer 
packages. 

In conclusion, Twentieth Century 
Shoebox is an easily-mastered program 
which functions quickly and smoothly. 
While not intended for formal account- 
ing, it would surely help in organizing 
a variety of personal information. 
(Levins Engineering, Inc., 1802 Greenwich 
Woods Drive, Silver Springs, MD 20903, 
301-564-8333, $29.95 plus $3 S/H.) 


— Pat Pugliano 


1000/1200/2000/3000 


Software 





Super Utility Helps 
Recover Lost Data 


Now you see it — now you don't! Fun 
if you’re at a magic show but not so 
much fun if you just lost your software 
review for PCM or my other favorite 
magazine, The Rainbow. I sure need 
some super help now. Why not Super 
Utility by PowerSOFT. 
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Yes, your favorite Tandy Model I, III 
and IV utility is now available for the 
Tandy 1000, 1200, 2000 and 3000 and 
other IBM compatible computers. This 
is not Super Utility Plus ported over to 
IBM compatible machines; it is a com- 
pletely new program. I have seen Super 
Utility Plus and believe me, Power- 
SOFT knows how to write utilities. 
Super Utility, called SU from here on, 
is meant primarily as a file recovery and 
disk media utility. It does not have 
features such as creating non-standard 
tracks in memory and then placing them 
on disks to copy protect them. You can, 
however, modify sector data and write 
it back to disk. 

SU comes packaged in a nice vinyl 6 
by 8/4 inch portfolio. One inside pocket 
contains the disk and registration card 
while the other contains a 31-раре 
manual. I found only one mistake in the 
manual and that was on Page 13 in the 
section "Sector Modification." The 
sample screen used is that of a "sector 
verify" not modify. No problem how- 
ever, since these two screens are basi- 
cally identical except for the “from” and 
"to" sector input required to verify a 
sector range. 


SU works on fixed disks and car- 
tridge systems such as the Iomega 
Bernoulli Box or Tandy Disk Cartridge 
System as well as floppy.disks. An 
install routine is included for those who 
might have certain other fixed disk 





“This is not Super 
Utility Plus ported 
over to IBM 
compatible machines; 
it is a completely new 
program." 





configurations. Those included are 
Great Lakes Computer Peripherals, 
Mercury Megabank Hard Disk and 
Pegasus Hard Disk. SU may be dis- 
played on a color or monochrome 
monitor. The manual states that if any 
screens look unusual (missing back- 
grounds), remove any RNSI.SYS files 
you might have in your CONF IG . SYS file 
and reboot the system. 

As the copyright and title screen 
appear, a message at the bottom of the 


screen instructs you to press ESC if the 
display is not readable. This usually 
occurs with a monochrome monitor on 
a system with a color card in it. Pressing 
ESC as instructed solved the problem. 
Before the main menu appears, SU 
displays the message “please wait, 
analyzing system volumes.” The main 
menu then displays either six or seven 
options based on what type disk drives 
are found on the system. With no fixed 
disks on the system, there are six op- 
tions, the sixth being “Quit.” With a 
fixed disk attached, Option 6 becomes 
“Custom Volume Configuration” and 
“Quit” becomes Option 7. The remain- 
ing options are Disk Maps, Sector 
Modify, Directory and File Changes, 
Sector Copy and Sector Verify. 
Choosing “Disk Maps” will present 
you with a sub-menu which is again 
dependent upon your system configura- 
tion. The options are Volume Dimen- 
sion Graphic, DOS Volume Informa- 
tion Maps, Fixed Disk DOS 
Information Map, Fixed Disk DOS 
Partition Graphic and Return to Menu. 
I tried using SU on four different 
machines with four different drive 
configurations. The first, of course, was 





Make Great Connections! 


Transfer files directly to/from disk 


Use XMODEM for error correction 
VT100 terminal emulation 


Autodial and logon with any autodial modem 


Now available in Radio Shack Stores! Ask for 


Omniterm 2 
Cat.# 25-1160 
$129.95 
IBM PC/XT/AT 
Tandy 1000/1200HD/2000 


Omniterm is a product of Lindbergh Systems, Inc. 
(617) 263-5049 


95 Nagog Hill Road, Acton, Ma 01720 





EOS Cat.# 900-0123 


TRS-80 Model 4/4P 






Shoebox 










information 
Services 


smoothly. 





Omniterm Plus 


and handling to: 


$95.00 


SOFTWARE 
FOR THE 
TANDY 1000 


Twentieth Century 


Twentieth Century Shoebox is an easily- 
mastered program which functions quickly and 


.. it would surely help in organizing a variety of 
personal information. 


To order, send check or money order for $29.95 plus $3.00 shipping 


Levins Engineering 
1802 Greenwich Woods Drive #32 
Silver Spring, MD 20903 


Requires Tandy 1000, IBM PC, or true compatible with at least one 
disk drive, 128K RAM and DOS 1.0 or higher. Color Monitor and 
printer supported but not required. 


^ Organize Home 
Records 

ν΄ Easy to Learn 
and Use 

ν΄ $29.95 






— PCM, March '86 
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my trusty Tandy 1000 with two floppy 
drives and a RAM drive installed. The 
second was an IBM PC with a 20-meg 
Bernoulli Box and two floppies. The 
third was an IBM PC-AT with two 
floppies and a 20-meg internal fixed 
disk. The fourth was a Tandy 1200 with 
one floppy and a 10-meg internal fixed 
disk. 

The Tandy 1000 configuration dis- 
played as three floppy drives, the IBM 
PC as two internal floppy drives and 
two external floppy drives, the IBM 
PC-AT as two floppies and an internal 
fixed disk, and the Tandy 1200 as a 
single floppy (designated as | instead of 
A) and one internal fixed disk. 

When using the PC-AT and the 
Tandy 1200, the Custom Volume Con- 
figuration option never appeared on the 
main menu. Also, options 3 and 4 of the 
Disk Maps sub-menu did not appear 
while using the PC-AT but they were 
available when I tried using the Tandy 
1200. I do not know if the DOS FDISK 
routine had been run on the PC-AT. A 
single DOS partition appeared to exist 
on the Tandy 1200. 

The Volume Division Graphic option 
displays the device name, type, number 


of DOS volumes, total storage for all 
volumes of this type and a bar graph 
representing percent full for the first 
volume. Pressing the space bar displays 
each successive volume. 

The DOS Volume Information Map 
gives the same data plus 12 detailed 
features such as total data sectors, bytes 
per cluster, number of FATs, logical 
unit number and several others. Here 
you may use the arrow keys to change 
between Drives A and B. Pressing the 
space bar brings up the next two vol- 
umes. A RAM drive displays exactly 
like a physical drive. 

Option 3 displays like Option | but 
without the graphics. In addition, each 
partition is displayed with its start and 
end sectors, size in megabytes, percent 
used and status (active/non-active). 
Option 4, DOS Partition Graphic, 
displays total sectors, number in use, 
number available and the bar graph. 
Option 5 returns you to the main menu. 

Selecting option 2, Sector Modify, 
displays all active volumes and asks 
with which one you wish to work. Then 
a menu is displayed along the bottom 
of the screen which allows you to find, 
change, next, last, repeat, search and 


quit — simply type the first letter. 

*Find" requests a sector number to 
locate, while *Search" prompts you for 
an ASCII string. Characters outside the 
ASCII range may be entered by using 
the ALT key and decimal number from 
the keypad. The search begins from the 
first data sector, or the last sector found 
using the find command, and continues 
through the last sector on the disk. Press 
any key and the search will be termi- 
nated. A list of all sectors and the 
relative position within the sector where 
the string is found is then displayed. 

“Next” and “Last” step forward and 
back through the sectors, while “Ке- 
peat” followed by “Next” or “Last” will 
continuously step through sectors until 
you press a key. 

“Change” allows you to alter a sector 
and save it back to disk. You may 
change data either in Hex or ASCII 
mode by toggling with the F5 key. All 
512 bytes of the sector are displayed at 
one time. 

“Directory and File Changes” also 
requests a volume to work with and 
then displays all files and sub- 
directories on the chosen volume. Dis- 
played are the type (file or sub- 





DATA-BASE 


Written and Distributed in BASIC Source-Code 


m All progs and mods are BASIC source-code (you can modify) 
m Supports fixed and variable-length records from 1 thru 252 bytes long 
= Key may be anywhere in data record (key-only records ok) 


= Re-uses deleted space, never needs reorganizing 


= Complete documentation and a discussion of Data-Base concepts 


m Can be used as a full production system 
m An invaluable learning aid (includes demo progs) 


п Works on all MS-DOS machines (phone for TRS-DOS info) SEA 


DB. BAS 


DBCRT. BAS 


DBDSPLY. BAS disp 
chains. 


DBSTATS. BAS displays statistics plus master-index chain counts. 
DBNDXREO. BAS restructures and optimizes lumpy index sectors. 
DBCMPRS. BAS physically decreases D/B disk allocation. 

alters min/max rec-len and fixed/variable characteristics. 


DBALTER. BAS 


merge into your progs to do all 1/0. Supports add, 
replace, delete, get, get-next, find, find-next. 


creates and initializes a skeleton Data-Base. 
display/print any sector deblocked char/hex with 


CERTIFICATION 
L 


MSDOS UTILITIES 
Tandy 1000, 1200, 2000, 3000 


IBM PC/XT/AT 


(No Technical Knowledge Required! Easy to Use!) 
***** RAMDISK ***** 


Use spare memory to Simulate onc or morc superfast 
disks. Any size. Greatly speed up existing applications. 


Appears to programs as a disk, but giv 

Highly efficient, compact, and thoroughly tested. 
Includes program to install and change RAMDISK 
size - no need to use complicated edit programs. 


**** FULLBACK 
(A Perfect File Backup System!) 

Finally, an easy to use backup program that keeps exact 
images of your files on backup floppies, cartridges, or 
hard disk. Automatically backu У! 
subdirectories. Backup i 
Keeps perfectly organized backups - backup structure 
is identical to original. Supports backup by date, 
multiple backup copies, large files (up to 32MB). Far 
superior to DOS BACKUP, easier to use, and much 
more reliable, 


..... 


or À iles. 


Absolutely a MUST for hard disk users. 


*.... USER TOOLS *.... 


DBVAL. BAS validates all index and data keys and chains. 
DBGETDAT. BAS merge into your prog to serially retrieve data records. 


(Save time, improve performance, increase flexibility) 
KB -- Keyboard aid, generate text with single key. 

DI -- 5 column, sorted, fast directory display. 
FINDFILE -- Search all directories for file. 

DTREE -- Beautiful subdirectory display (Names,size) 
CHMOD -- Set file attributes. (Readonly,Hidden,...) 
HEXDUMP - Display file in hex and character format. 
TI - Report elapsed time for any DOS command. 
More ALPS Tools Available. Call or Write for ALPS 
catalog. Customer Support!!! 9am to 5pm weekdays. 


ALPS develops and supports all products in-house, and 
has 5 years of business experience with microcomputers. 


eb ALPS = 


1502 County Road 25 
Woodland Park, Colorado 80863 
303-687-1442 


C Data-Base System w/disk-resident documentation (requires printer) $49 
Same as above plus printed documentation $55 
C Printed documentation only S8 
О Postage and diskette (not required for documentation-only) $5 
*checks accepted, money-orders shipped same-day* 











Name Computer-make Model 


Address Apt 





City State Zip 


ARIES COMPUTER SOFTWARE 
25357 Ingleside, Southfield, MI 48034 
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directory), filename, time, date, size, 
FAT-entry, hide, R/O (read only) and 
system along with the volume name if 
one is present. 

You may change the filename, vol- 
ume name, hidden, read only and sys- 
tem attributes if you wish. 

The arrow keys are used to select a 
file or sub-directory. The ΕΙ key will 
then display the FAT for the selected 
file; F2 will display the FAT for the entire 
volume; F3 will enter the sector modify 
mode displaying the first sector of the 
file; and page-up and page-down will 
move between the root directory and 
the selected level of sub-directory. 

File restoration is done from this 
option. Deleted files display with their 
file type flashing and the first character 
of their filename missing. For some 
reason the file type did not flash when 
using the Tandy 1200, however the first 
character of the filename was missing. 
Entering the first character of the 
filename places you in the restore mode. 
Everything known about the file is 
displayed, even down to a guess as to 
whether the file was ASCII or non- 
ASCII. The first sector of the first 
possible cluster is placed on the screen 


© 


for you to examine. You may press 
ENTER to restore, use PG UP or PG DN 
to examine other sectors in the cluster 
or use ESC to cancel the restoration 
process. 

When in the auto-select mode the 
next possible cluster of the proper type 
(ASCII or non-ASCII) will be dis- 
played if you choose to restore. Turn 
auto-select off with the F4 key and you 
may examine all available clusters 
regardless of type. You may choose the 
clusters to restore. The number of 
clusters restored and the number still 
required is displayed. If all clusters 
cannot be restored, you may use the 
^F option of CHKDSK to adjust the file 
size in the directory and the FAT. This 
is primarily for use on ASCII files. 

If the first cluster has already been 
used, SU will display a message of 
sympathy and suggest using the search 
function and Option 4, Sector Copy. 
This option will copy sectors to a file. 
It prompts for an output filename, and 
if one is not specified, it defaults to 
COPYnnnn.CHK just as the CHKDSK 
command in DOS. Next specify an 
output volume and finally the volume 
and sectors to copy. You may be able to 


recover portions of a file using this 
method. 

Option 5, Sector Verify, simply re- 
quests a volume and the range of sectors 
to verify. Errors are indicated by a beep 
and the sector number will be displayed. 

I could not test Custom Volume 
Configuration for two reasons. First, it 
did not appear as an option on any 
machine I used and second, a warning 
in the manual states that this option will 
delete every entry on that volume. 

Overall, Super Utility performs very 
well. It is very simple to use and com- 
pletely menu oriented. As advertised, it 
does not take a programmer to use. 
Most terms are defined in a glossary but 
the numbers displayed on a volume or 
file FAT take some understanding of 
disk and file structures. Even without 
this understanding though, file restora- 
tion is made quite simple, as long as the 
file has not been written over, with step- 
by-step instructions. Super Utility is an 
excellent package. Lose a few days work 
and judge for yourself. 


(PowerSOFT, 17060 Dallas Parkway, Suite 
114, Dallas, TX 75248, $89.95) 


— Larry Birkenfeld 


BARBAROSS 


The War in Russia 1941-44 


ARK ROYAL'S most popular Color Computer wargame is now available on 
the Tandy 1000 and all IBM compatibles. Hi-res graphics, 10075 ML, Bar- 
barossa is the same game raved about in the RAINBOW and HOT COCO (Jan 
'86), except that the 1000's memory allows room for a host of expanded fea- 
tures. Included are bitmapped logical characters (tanks, infantry, airflottes, ci- 
ties and terrain), normal and Bliltskrieg movement, airstrikes, supply 
consideration, unit detail, group transfer, weather, intelligence, (which even 
tells you which sector your attacking unit is in), patrols, game save and even 
more. $24.95, disk. We pay shipping and handling on all prepaid orders in 
CISA. COD charge is $2.50. Personal checks in US accepted with no shipping 
delays. Foreign orders send М.О. in CIS funds. FL residents add 5% sales tax. 


Program requires disk, graphics card, 128K. 


P. O. Box 14806 


Jacksonville, FL 32238 


(904) 786-8603 
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Software 1000/1200/3000 


Clipper Compiles 
dBase III Programs 


As a long-time advocate of d Base II 
and d Base III as a professional software 
development tool, I was very happy to 
hear about Nantucket's Clipper, a 
dBase III program compiler. If what the 
advertising claimed was factual, pro- 
grams written with dBase III, when 
compiled with Clipper, would run two 
to 20 times faster than when run using 
the d Base III interpreter. 

Much to my surprise, the advertising 
was honest. While most procedures 
didn't run 20 times faster, a speed 
increase of 300 percent (three times 
faster) was not uncommon. I was sold. 


What does Clipper do? 

In addition to allowing the user to 
enter commands from the keyboard and 
execute them at that moment, d Base III 
allows more sophisticated users or 
programmers to put together many 
commands into “procedure” (program) 
files which may then be executed by 
entering a single command. This auto- 
mates d Base so it can perform compli- 
cated tasks without the end-user enter- 
ing a single dBase command or even 
knowing anything about d Base. 

When you are running a dBase III 
program, d Base reads the procedure file 
one line at a time and "intreprets" the 
commands. That is, it converts each 
command into instructions that the 
microprocessor in the computer can 
understand. Even though this is done at 
very high speeds, the time it takes to 
intrepret each single command in a 
d Base procedure file each time the user 
runs the program adds up significantly. 

Clipper is a dBase III compiler. A 
compiler is a program that takes high- 
level programs (those that are close to 
English, such as d Base IIT) and converts 
them into a language that the compu- 
ter's microprocessor can understand 
without interpretation. The result is, 
since the “compiled” programs don't 
have to be intrepreted for the micro- 
processor each time they are run, they 
will execute much faster. 

Another benefit of this is that the 
compiled programs can be run without 
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dBase III or Clipper. That is, they are 
stand-alone machine language pro- 
grams. While it is beneficial to have 
dBase III when developing the pro- 
grams, the compiled dBase III pro- 
grams may be distributed without 
dBase III itself. This can amount to a 
big savings if the compiled programs are 
to be run on more than one machine. 


Compatibility 

Clipper will compile just about any 
dBase III program on the first try. The 
only problems I experienced when using 
Clipper were with certain *macros" and 
the compilers adversion to using dashes 
(-) in filenames. 

Clipper adds some very useful com- 
mands and features to dBase III. 
Among these are the much-needed 
INKEY( ) function; a VALID clause for 
GET statements to check for proper user 
input; multi-child relations with SET 
RELATION TO; a real-time debugger 
which lets the programmer set break- 
points, check variables and fields, 
single-step programs and enter new 
values for variables while the program 
is running; extended support of the 
programmable function keys; in- 
memory screen swapping; and a very 
nice method for defining your own 
string and math functions. This is just 
to name a few! 

The only problem with using the new 
commands provided by Clipper is, since 
dBase III does not support these new 
commands, your program will no 
longer run un-compiled using dBase III. 
In other words, you'll be unable to test 
programs with the dBase III interpreter 
before going through the time- 
consuming process of compiling. I 
found this a fair trade since the new 
Clipper commands reduced program- 
ming time and allowed me to add fea- 
tures to my programs that I was unable 
to offer using straight d Base III. 

Clipper has its own, more-efficient 
indexing system which is incompatible 
with d Base III indexes. Therefore, it is 
neccesary to build all index files from 
within a Clipper-compiled program. To 
keep things from getting too confusing, 
Clipper uses the extension .NTX for its 
index files, while dBase III uses . NDX. 

The documentation states that, while 
the Clipper compiler might not run on 
non-IBM compatible machines, the 
programs it compiles can be made to 
run on just about any MS-DOS ma- 
chine that supports ANSI terminal 
commands. When I tried compiling and 
linking the programs using the supplied 


Back Issue 
Availability 


Back copies of many issues. 
of PCM are still available. 

All back issues sell for the 
Single issue cover price. In 
addition, there is a $2 charge 
for the first issue plus 50 
cents for each additional 
issue shipped in the U.S. 
When possible, issues are 
shipped UPS. The postage 
cost in Canada and Mexico. 
is $3 for the first issue and. 
$1 for each additional issue. 

VISA, MasterCard and 
American Express accepted. 
Kentucky residents please 
add 5 percent state sales tax. 
We do not bill and no COD 
orders accepted. | 

We suggest you order 
back issues you want now 
while supplies last. 

To order, just fill out the 
form on the next page and 
mail it with your payment | 
to: 


PCM 
The Falsoft Building 
Prospect, KY 40059 

















C] Please send me the following back 


issue 


S: 


(Payment must accompany back issue 


orders.) 


NO. MO. 
JULY 
AUG. 


OCT. 
NOV. 
DEC. 
JAN. 
FEB. 
MAR. 
APR. 
11 MAY 
JUNE 


OGCOnonswn— 


AUG, 


SEPT. 


SEPT. 


2 

3 

4 OCT. 
5 NOV. 
6 DEC. 
7 JAN. 
8 FEB. 
9 MAR. 
APR. 
11 MAY 
JUNE 


JULY 
AUG. 
OCT. 
NOV. 
DEC. 
JAN. 

FEB. 

MAR. 


Φο + O Q δ.  -- 


YR 
'83 
88 
88 
89 
83 
88 
84 


85 
'85 


'85 


'86 
'86 
'86 


VOLUME 1 


PREMIER ISSUE 


LIMITED 


VOLUME 2 


VOLUME 3 


TOTAL 


SHIPPING & HANDLING 


KY RESIDENTS ADD 5% 
TOTAL AMOUNT 


ul 
z 
< 
z 





ADDRESS 


ZIP 


STATE 


CITY 


ENCLOSED 


П =-- ΓΙΡΑΥΜΕΝΤ ENCLOSED 


CARD # 


PHONE s 


EXPIRATION DATE 


PRICE 
$3.00 
$3.00 


e 
© 
© 
© 

ΠΠΠΠΠΠΠΠ ооооооооооо оооооооооооо 


SIGNATURE 





ANSI driver, they wouldn't run cor- 
rectly on any machine I tried — even the 
compatibles. Thus, as it stands, Clipper- 
compiled programs will not run on a 
Tandy 2000, but will run on a 1000, 1200 
or 3000. 


How it Works 

Compiling dBase ПІ programs with 
Clipper is a two-step process. The first 
step is to compile the program. This 
looks at the program code and decides 
what needs to be done to convert it to 
machine language. The next step is to 
link it. Linking puts together the necces- 
ary machine language routines to make 
a complete machine language program. 

If your program uses DO or SET 
PROCEDURE TO commands to call other 
files, Clipper will automatically include 
these files in the compiled program. In 
other words, if you have a program 
system that includes a dozen programs, 
the end result will be a single machine 
language program. 

A typical dBase III program will be 
about 130K when compiled. This 
number is not much higher or lower 
with larger and smaller source pro- 
grams since the necesary machine lan- 
guage routines which are linked to- 
gether during the linking process are not 
duplicated in the final compiled pro- 
gram. 

If your application is too large to fit 
into the computer’s memory when 
compiled, the linker supplied with 
Clipper allows you to split up the 
program into overlay files which are 
loaded from the disk when needed as the 
program runs. 

If your program encounters an error 
while running, the actual line number of 
the source program is displayed along 
with some information about the nature 
of the error. This sort of error reporting 
is a significant plus for program devel- 
opment and is rare to find in compilers. 


Documentation 

The Clipper manual we received for 
review was about half typeset pages and 
half computer-generated addendums. 
There was very little information on 
using the new commands and features 
or on using the linker. Most of what I 
learned about it was by using the man- 
ual as inspiration for experimenting. 
Perhaps the final version of the manual 
will be more concise. 


Copy Protection 
The Clipper compiler is supplied on 
a single copy-protected disk. Another, 


non-copy-protected disk contains the 
specilized PLINK86 linker program. 
Clipper will not run directly from the 
distribution diskette, but must be in- 
stalled on another floppy disk or a hard 
disk drive to work. A little more gener- 
ous than most software vendors, Nan- 
tucket allows you to have up to four 
copies of Clipper installed on different 
disks. It also provides a “de-install” 
program for safely moving Clipper 
from one disk to another. 

It is important to remember, though, 
that programs compiled with Clipper 
do not need either Clipper or dBase III 
to run, and Nantucket does not put any 
restrictions on the distribution of soft- 
ware compiled with Clipper. Therefore, 
Clipper can be used to develop pro- 
grams that are to be run on many 
machines or even to be distributed 
commercially. 


Conclusions 

Clipper is not for the casual dBase IIT 
user or the person who uses dBase II 
strictly on a command-level basis. But 
for the serious dBase ПІ programmer, 
Clipper is a godsend. It makes programs 
run much faster, adds many useful 
programming and debugging features 
and frees our programs from dBase III. 
In fact, it is one of the nicest compilers 
I've used on a microcomputer for any 
language. 


(Nantucket, 5995 S. Sepulveda Blvd., 
Culver City, CA 90230, 213-390-7923, $695.) 


— Danny Humphress 


Hardware 1000/1200 


Supercharge your 
Tandy with 
MFB-1000 


multi-function board 


When the Tandy 1000 was introduced 
a little more than a year ago, I found 
only one major problem with the ma- 
chine’s design. That was the lack of 
ample expansion slots. You could not, 
for instance, have a 640K Tandy 1000 
with both a modem and a clock/ mouse 
— there wasn’t enough room for all the 
cards. Instead, you would have to live 
without one of the functions, be content 
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to swap boards in and out, or look 
elsewhere for a computer. 

On the IBM PC, this problem was 
quickly tackled by third party suppliers 
who designed “multi-function” boards 
— expansion cards that combine more 
than one feature and occupy a single 
slot in the computer. But these cards are 
usually too long to fit in the Tandy 
1000's case and they used a memory 
addressing technique different from 
Tandy's. Would any of these manufac- 
turers produce similar products for our 
favorite Tandy machine? 

That day is here. PBJ, a long-time 
third-party supplier for Tandy- 
compatible products, has come to the 
rescue. Their MFB-1000 multi-function 
board combines the features of four 
boards (two 128K memory boards, RS- 
232 interface and clock) into one single 
card. The MFB-1000 comes with 128K 
memory (expandable to 512K), an RS- 
232C serial communications interface 
and a clock/calendar with battery 
backup. 

In addition to working with the 
Tandy 1000, the MFB-1000 is also 
compatible with the Tandy 1200 and 
ΙΒΜ PC. Instructions provided with the 


board tell you how to change a jumper 
to make the memory addressing com- 
patible with these machines. 

One of the convenience features of 
the MFB-1000 is its built-in clock/ 
calendar with battery backup. You 





"the MFB-1000 is 


also compatible with 
the Tandy 1200 and 
IBM PC." 


(THES EVO Lt iam υλικο 
simply install a supplied device driver 
on your diskette's CONFIG.SYS file 
(detailed instructions are provided), 
and your computer will automatically 
know the correct date and time when it 
boots. 

Installation of the MFB-1000 is 
simply a matter of removing two screws 
on the front of your Tandy 1000, lifting 
off the cover, inserting the card in an 
available slot and replacing the cover. If 
you install more memory chips on the 
board, the instructions help you along 


and tell you which jumpers you need to 
change. 

The basic MFB-1000 comes with two 
banks of 64K chips for atotal expansion 
of 128K (added to the built-in 128K in 
the Tandy 1000). These chips may be 
replaced with the newer 256K chips for 
256K or 512K on the board. The 64K 
and 256K chips cannot be mixed on the 
board, however. In other words, if you 
are using 256K chips in one bank, the 
other bank must be empty or be filled 
with 256K chips. 

The RS-232C serial communications 
adapter is pre-configured as COMI and 
cannot be changed. If you are using 
another communications device, it must 
be changed to COM2 to prevent inter- 
ference with the MFB-1000 board. 

PBJ has done a fine job on this board. 
The installation was quick and simple. 
In a matter of minutes, my machine 
went from a plain 128K Tandy 1000 to 
a supercharged 640K machine with 
communications and an automated 
ticker. 

(PBJ, Inc., 503 East 40th Street, Patterson, 
NJ 07504, (201) 523-8663, $359.95) 


— Danny Humphress 





| Submitting Material To PCM. 


Contributions: to PCM are ΜΗΝ from eve- 





ini  ryone;. ‘We like to run a variety of programs that 
will be useful / helpful/fun for other Tandy Portable 
|; and MS-DOS computer owners. We now support. 
ii {Шен Tandy tii models 100, 200 and 600 апа. 


T^ $414 


The Handicapper 


Hi ‘computers, 
n Program BER MEIN must be on tape or disk, 
папа. it is best to make several saves, at least one of 
them in ASCH format. We're sorry, but we do not 
have time to key in programs. All programs should 
|, be supported by some editorial commentary 
ii explaining how the program works. Generally, 
"were much more interested in how your submis- 
sion works and runs than how you developed it. 
| Programs should be learning experiences. 
(o Pay. for submissions is based on a number of 
|eriteria. The rate of remuneration will be estab- 
Н lished and agreed upon prior to publication. 
For the benefit of those who wish more detailed 
зни ора on making submissions, please send an 
SASE to: Submissions Editor, PCM, The Falsoft 
Building, Р.О. Box 385, Prospect, KY 40059. We 
. ‘will send: you comprehensive guidelines. 
Please do not submit programs or articles 
currently submitted to another publication. 
If you feel qualified to review software and/or 
hardware products for computers covered in PCM, 
"send us your name, address and phone number; we 
':will send you a questionnaire form and a copy of 
| Our reviewer guidelines, 
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Use your Tandy 1000, 1200, 2000 or Model 100/200 
to improve your performance at the track! Separate pro- 
grams for Thoroughbreds, Harness horses and Grey- 
hounds rank the horses or dogs in each race. Handicap a 
race in minutes, even if you've never handicapped a race 
before! 

All the data you need is readily available in the thor- 
oughbred Racing Form, harness or dog track program. 
We even provide diagrams showing you where to find the 
information you need! Data entry is quick and easy. Our 
manual shows you how to bet, when to bet and when to 
sit out—one of the real secrets of good handicapping. 

Thoroughbred, Harness or Greyhound Handicapper, 
$49.95 each on T1K disk. Thoroughbred and Harness 
only, $49.95 each on Model 100/200 tape. Any two for 
$74.95, all three $99.95. You can buy a more expensive 


handicapper, but you can't buy a better one! 
LSAT! 
om 


Federal Hill Software 


8134 Scotts Level На. 
Baltimore, MD 21208 
Toll Free (Orders Only) 800-245-6228 
For Information Call 301-521-4886 





PCM March 1986 








— New Products 








1-Hour Telecomputing, a 
crash course in on-line com- 
puter communications. Dis- 
cusses technical terms and 
features of available com- 
munications packages and 
computer services. IM- 
PRESS, 1412 Rosewood, 
Ann Arbor, MI 48104, 
(313)761-2231, $19.95. 


The Computer Under- 
ground, a book by M. Harry 
on computer hacking, crash- 
ing, pirating and phreaking. 
Discusses terminology and 
security measures for pro- 
tecting computer systems 
and data. Loompanics Un- 
limited, P.O. Box 1197, Port 
Townsend, WA 98368, 
$14.95. 


Connections: Telecommuni- 
cating on a Budget, a book 
by Robert Chapman Wood 
for people new to computer 
communications. Discusses 
communications software 
and computer information 
networks. Scott, Foresman 
and Company, Professional 
Publishing Group, 1900 East 
Lake Avenue, Glenview, IL 
60025, $15.95. 


Cross Reference Facility, a 
software development tool 
for BASIC programmers 
which will list report 
references to program varia- 
bles. Requires Tandy 1000, 
2000, 1200 or 3000. Program 
listing supplied only. Disk 
available at extra cost. 
Cheapware, Robert L. Nico- 
lai, 4038 N. Ninth Street, St. 
Louis, MO 63147, (314) 621- 
7618, $9.95. 


DMP-2100 Custom Font 
System, allows you to create 
your own library of printer 
fonts or use a number of 
supplied fonts with Tandy's 
DMP-2100P printer. Re- 








quires Tandy 1000, 1200, 
2000 or 3000 and a DMP- 
2100 printer. Tandy, distrib- 
uted through Radio Shack 
stores nationwide, Catalog 
No. 25-1158, $24.95. 


Electronic Envelope, a utility 
that allows you to prepare 
any computer file for distri- 
bution through electronic 
mail services. Converts bi- 
nary files to ASCII for trans- 
mission and back to their 
original format after going 
through electronic mail. 
MCTel, Three Bala Plaza 
East, Suite 505, Bala Cyn- 
wyd, PA 19004, (800)628- 
3584, $49.95. 


Key Entry III, a high speed 
data entry software package. 
Provides easy-to-learn data 
entry and validation, editing 
and record searching. South- 
ern Computer Systems, Inc, 
2732 7th Avenue S., Bir- 
mingham, AL 35234, (205) 
933-1659, $895., plus ship- 
ping. 


Kleen Line MPS(22)-4, pro- 
tects your computer and 
modem from electrical and 
phone line power surges and 
general "line noise." Works 
with all Tandy AC-operated 
machines. Electronic Special- 
ists, Inc., 171 South Main 
Street, Box 389, Natick, MA 
01760, (800) 225-4876, 
$201.95. 


Kleen Line PDS-11, protects 
your modem from phone line 





surges and noise. Works with 
all modems. Electronic Spe- 

cialists, Inc., 171 South Main 
Street, Box 389, Natick, MA 
01760, (800)225-4876, $73.95. 


The Lens, a software pack- 
age that allows an enlarged 
version of the monochrome 
display to be created on the 
color display. Requires 
Tandy 1200 or 3000 with 
both monochrome and color 
graphics displays and adap- 
ters. ARTS Computer Pro- 
ducts, Inc., 145 Tremont 
Street, Boston, MA 02111, 
(617) 482-8248, $495. 


Logic Line I, an aid to per- 
sons who wish to access and 
study as well as retrieve data 
from a large body of infor- 
mation or from textual mate- 
rial. Data can be retrieved 
independently of how it was 
input. Requires Tandy 1000, 
1200 or 3000. Clarity Soft- 
ware, P.O. Box 839 Chester- 
land, OH 44026, (216) 729- 
1132, $250. 


Mastercom, an easy-to-use 
smart terminal and file 
transfer utility program de- 
signed to be easy for be- 
ginners yet have the features 
for more experienced users. 
Requires Tandy 1000, 1200 
or 3000. The Software Store, 
706 Chippewa Square, Mar- 
quette, MI 49855, (906) 228- 
7622, $49., plus shipping. 











PC Sweep, a disk and file 
management program which 
allows the user to easily per- 
form routine disk and file 
maintenance such as delet- 
ing, renaming, copying and 
making backups. Requires 
Tandy 1000, 1200, 2000 or 
3000. Koch Software Indus- 
tries, 11 West College Drive, 
Building G, Arlington 
Heights, IL 60004, (312) 398- 
5440, $79.95. 


Project Scheduler, aids in 
breaking down large jobs 
into individual tasks and 
keeping track of the project's 
progress. Requires Tandy 
200. Tandy, distributed 
through Radio Shack stores 
nationwide, Catalog No. 26- 
3893, $39.95. 


Text Power 200, a text for- 
matter that enhances the use- 
fulness of the Tandy 2003 in- 
ternal Text function. 
Requires Tandy 200. Tandy, 
distributed through Radio 
Shack stores nationwide, 
Catalog No. 26-3881, $39.95. 


Timeslips, a time and ex- 
pense tracking program with 
billing, reporting and graph- 
ics. Used to track and bill 
time-related costs and ex- 
penses for specific projects. 
North Edge Software Corp., 
P.O. Box 286, Hamilton, 
MA, 01936, (617)468-7358, 
$99.95. 


X-TEL, an advanced com- 
munications program for the 
Tandy 100 or 200. Supports 
on-line text editing and 
XMODEM communications 
protocol. Requires Tandy 
100 or 200. Sigea Systems, 
Inc., 19 Pelham Road, Wes- 
ton, MA 02193, (617) 647- 
1098, $50., plus $5 shipping. 
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Using BA READ 2.1 


Bar code listings must be 
read in numerical order begin- 
ning with Line 1 and contin- 
uing through the last line of 
the listing. The computer 
display is used to prompt you 
as to which line to scan and 
give you warning messages 
should you happen to get out 
of step. 

When you run BAREAD, it 
asks you to scan the first line 
of the bar code listing. This 
line contains the name of the 
program as well as the begin- 
ning of the program itself. The 
computer will sound a high- 


BAREAD 2.1 


199g ikke initialize ἘΧᾺ 
1010 ON ERROR GOTO 19049 
1020 CLEAR 1909 :MAXFILES-2 
1030 GOTO. 1059 


1049 TF ERR-5. THEN RESUME NEXT 


1050 ON ERROR СОТО Ø 
1960 RUNM "B30F9" 


1079 OPEN "WAND:" FOR INPUT AS #1 


1980 UC$--1 


1990 PC$-"012 3456789ABCDEFGHIJKLMNOPQRST 
UVWXYZabcdefghijklmnopqrstuvwxyz- $+" 


1199 DIM RW$(36) 


111g ERS (CL) = Yoü must scan line l first! 


1129 ER$(2)5"You've SKIPPED a line!" 
1139. ERS(3)-" You've ALREADY SCANNED this 


line!" 
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pitched beep whenever it's 
ready for you to scan a line. 
After a line has been success- 
fully read, you'll hear a lower 
beep. A “blip-bloop” sound 
prompts you to turn your 
attention to the screen for a 
message. You'll hear this when 
you accidentally scan a line 
out of sequence. 

After reading the first line, 
you continue scanning with 
the second line. Remember to 
wait for a high beep before 
scanning and then listen for 
a low beep to indicate a suc- 
cessful read. 


METTRE TE UA THE TU 
BAR CODED LISTINGS 


ΠΕ TUO ΕΠΗ η] 






mum mira 


Once the last line of the 
listing has been scanned, 
BAREAD will return control to 
the Tandy 100/200 menu 
screen. Note that the program 
you just scanned is now in the 
directory with a .DO extension. 

The final step is to convert 
the .DO text file to a normal 
BASIC program. This is done 
quite simply by going to BASIC 
and loading the file with a 
command such as LOAD” TEST 

0^ (if the program name 
were TEST). The program will 
load into BASIC and will be 
ready to run. To save the 
program in BASIC's com- 
pressed format (.BA exten- 
sion), you'd type SRvE “TEST” 
(if the program were named 
TEST). You may then kill the 
.00 file with KILL “TEST.DO”. 


1240. joi ΛΙΜΝΗ piss 
1250 CLS; PRINTQAA, РОМ me 
Reader v2.1": i 
1260 LINE(29, m (219, 18) 
(217, 16), 1; В i inne 








| 1270 NNS=1 


/3GOTO 1280 

1299 IF 114—0 AND INSIR("YN",IL$)29 THEN 
ER$-5:GOSUB 1620:GOTO 1280 
1300 IF LL&-Q THEN ON INSTR("ALSR",ILS) 
GOTO 1820, 1890, 1980, 2050 
1319 ΤΕ LL$-1295. THEN 1350 
1329 IF LL&<>NN% AND NN$-1 THEN ER&-1:GO 
SUB. 1620:GOTO 1289 
1339 IF LL&«NN& THEN ER$-3:GO0SUB 1620:GO 
TO. 1289 

1340 IF LLS2NN$ AND NN$»1| THEN ER$-2:GOS 
UB 1629:GOTO 1280 
1350. ILS-RIGHTS CILS, 19) 


1360 IF LL&-1 AND NN$»29| THEN GOSUB 1780 


1379 CL$-CLS4ILS 

1380 FOR Iš=1 TO LEN(CL$) 

1399 | CH$eMIDS(CL$,1$,1) 

1499 IF CH$-2"$" THEN GOSUB 1519:1F NL 
8 THEN 1479 ELSE GOTO 1449. 

(1410 !' IF CH$-"/" THEN GOSUB 1559:IF NL 
$ THEN 1479 ELSE GOTO 1449 


1420 ТЕ CH$2"." THEN UCS-NOT(UC&):GOT 


0 1450 : 

1439: ΙΕ CH$e»2"A" AND CH$«—"Z" AND NOT 
(Üts) THEN. CH$-CHR$ (ASC(CH$) *32) 

1449. XX$=KX$+CHS$' LF RIGHTS(XX$,1)-CHR 
$(13) THEN PRINT£2,XX$;:XX$-"":UC&--1 
1450 NEXT I$ 

1469 CL$&"" 

1470. PRINTQ299 , SPACES (89) ; 

(1689 IF LLe«»1295 THEN NN&-LL&41:GOTO 12 
1490 tse Done www 

1599 CLOSE: CALL: 618071: CLEAR 599, HIMEM:M 
ENU 

1519 ' Wik Decode Reserved Word ww 

| 1520) NL&-0:IF Tš>LEN(CL$)-1 THEN NL¢=-1: 
οφ” GOTO 1540 

153g 1%=1%+1: Cli$cRWS (INSTRCPCS MIDS (CLS. 
11549 RETURN 

1559 ' ΧΚᾺ Decode Hex and Control Charac 
| ters зия 

1560 NL&-Q:IF I$&-LEN(CL$)-1 THEN NL$--1: 
CL$e"/":GOTO 1610 

1579 I$-IS*1:IF INSTR("/*.",MIDS$(CL$, I$; 
1))»0 THEN CHS$-MID$(CLS,I$,1):GOTO 1610 
1589 IF ISP2LEN(CL$)-l THEN NL%=- 1: CLScRI 
GHT$(CL$,2):GOTO 1619 


1599 HX$-MIDS$(CL$,1$,2): CH$-CHR$((INSTR(. 


:19123456789ABCDEF" , LEFTS (HX$, 1))-1)*16*1I 
NSTR("9123456789ABCDEF" , RIGHTS (HX9,1))-1 
) 


1609 I$-I$41 

1619 RETURN 

1620 ' *** Error Codes *** 

RS SOUND 5999, 19:80UND 8900; Ag: SOUND 5 


1289. GOSUB 1669:IF ER$29 THEN GOSUB 1620 


999,19. 
1649 PRINT@229- ο... ERS (ERA) 


1650 RETURN SUI 

1669 ' wee Get Code Line ye ИЦ: 
1679 PRINTQ173,""; ;PRINT "USING "Sean lin | 

e Su" NNG | \ 

1687 IF NN-.1 THEN PRINTGI73, "Scan; any: 
line":GOTO 1799 

1699 SOUND 560,5 | 

179% INPUT#1, ILS ERS=0 

1719 FOR 19-1 TO LEN(ILS) i 
1720 IF MIDS CILS,: I$, Metis THEN. ἵ MIDS (TLS 
‚1%, Tyt шин: 
1738 NEXT I$ i | И ИШ 
1749 IF LEN(ILS)<>1 AND LENCILS) O21 тв 

N ER&-4:RETURN ^ | 

1759 IF LEN(IL$)-1 THEN (LL&-Q;RETURN | d 
1769 LLS-LEFTS$(ILS, 2):LLe-(INSTR("912345 | 
6789ABCDEFGHIJKLMNOPORSTUVWXYZ" ,LEFTS (LL... 
$,1))-1)*36*INSTR("0123456789ABCDEFGHIJK . 
LMNOPQRSTUVWXYZ" , RIGHTS (LLS , pns 1 
1770. RETURN 


(1789. ' *** Open Program: Pile sees 


1799. ο αν 6): ο dud BW 
(IL$)-6) | 
1800 OPEN PNS FOR OUTPUT AS. 2 
1819 RETURN 

1829 ' *** Abort *** 
1830 BEEP: BEEP: BEEP 


184g PRINTQ299, "ABORT! Are. ou зше. 


(111859. INPUT&1,ANS 


1860 IF INSTR("YN"; ANS) <0. THEN ‘BEEP: PREY 
TQ251,"Scan 'YES' or "NOUN: GOTO. im 
1879 PRINTQ2040, SPACES(80); 1. ИШИ j 
1880 IF AN$-"Y" THEN CLOSE: кип Png do | 
":GOTO 1499 ELSE GOTO 1289. f | 
1899 ' *** Skip Line ww* ΜῊ 
1999 IF NN%=1 THEN. ipit сов. deg. сото 
1289: | | 
1910 ВЕЕР: ВЕЕР: ВЕЕР 1 
1929 PRINTQ210,"SKIP!' 
1930 INPUT#1 ANS H И 
1940 IF INSTR("YN",AN$)«g THEN. ВЕЕР. PRIN 
TQ251,"Scan 'YES' or 'NO'": GOTO 1939 
1959 PRINTQ29g, SPACES (8@) ; m 
1966 IF AN$-"Y" THEN: uta ИИ 
1979 GOTO 1289 
1989 ' *** Stop & Save ek 
1990 BEEP:BEEP:BEEP ^ HERRERA ТИП 
2000 PRINTQ297, ЧООК δε; ΠΝΈΗΙ Are es Sur ji 
e?": ; 1 
2019 INPUTA41 VANS ШИЕ 
2929 IF INSTR("YN", ANS) <0 ἡ THEN: BEEP: PRIN. 
16251,"Scan 'YES' or 'NO'*: GOTO: dedi HH: 
2030 PRINT@200, SPACES(88); |. 
2949 IF ANS="¥" THEN 1499 ELSE сото RAMEN 
2959 * *** Resume *** ii " 


Ате. Meu. sure?" 


[AME IF ИЕН THEN ERS -5: GosUB. | 1629: бот. 
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10.1289 ИШИН o о ON ERROR GOTO 214g | BIER HUS 
2130 OPEN PNS FOR INPUT! AS #2: coro 21 ii 


2979: PRINT@254, "Resume Mode"; ИНИНИН 
2080 NN&-1:GOSUB 1669 I (00:214 RESUME | ШЕШ 

2999 IF LL&- THEN ЕК%—5 ELSE IF. шаба | nir CLOSE. 92. 

THEN ER$-1 
52199 IF ER%>Q THEN GOSUB 1620: ото 2968. 

2110 РМ9=МІр$(115,3,6) U iili Hed pou 1 бото 1289 
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TSTRTS.BCR (FROM PAGE 100) 


τ lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
2 [ΠΠΠΠΠΠΠΠΠΙΠΠΙΠΠΙΠΠΠΠΠΠΠΙΠΠΙΠΠΠΠΠΠΙΠΙΠΠΠΙΙΙΙΙΠΙ 
ОООО 
4 (ЇЇ ЇШЇП 
5 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
6 (ШШ ТШШ ШШШ ШШШ 
? (ШИШИШИ! 
8 III 
БИШ ШШШ 
το ШШШ 
μμ. .... 
12 ΙΙΙ 
13 ΤΙΝ 
14 | ШЇЇ ШЇЇ 
15 ЇЇ UH AAA MAL 
16 | ЇШЇП ИШИ 
12 ΤΙΝ 
18 ΤΝ 
19 ΤΗΝ 
29 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
21 | ЇШЇП ШШШ UM 
22 ΙΙΙ] 
23 ANUNUA TO I O 
24 MANUNDAN MU 
25 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
26 ΙΙΙ 
2; ΙΙΙ 
28 ΙΙΙ 
n e A a UU 
39 [| TUN ИИТИИ 
31. ΙΙΙ 
32 |! ЇЇ ЇШЇП 
33 | ШЇ ТЇШЇЇ ЇЇ NM 
34 [llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
35 QNIN AM 
БАШ 
з? (ШШШ! 
38 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
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39 mmm 
“ο ЇЇ 
41 ИТИИ ИИИНИН 
42 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
43 ЇЇ ЇЇ ЇШЇП! 
44 ЇШЇП! 
45 |ІІІ 
“6 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
42 ΙΙΙ 
48 ШЇЇ ЇШЇП 
«9 [ΠΠΠΠΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠ|{ΠΠΠΠΠΠ/{ΠΠ||}/{||Π|} 
5ο |! (ИШИ! 
51 | APA IM 
52 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
53 ΙΙΙ 
54 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIW 
αμ Εμ. 
56 [ΙΙΙ 
52 ΙΙΙ 
58 ΙΙΙ 
59 (ШИШИШИ 
ϱο [ΙΙΙ 
οι [ΙΙΙ 
a UA NOP ML L A A 
63 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
84 [ШШШ ЇЇ! 
65 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
65 ANODOA N O 
6; IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
68 lIIIIIIIIIIIIIIIIIITIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
вэ ΜΙΝΙ 
29 |! ЇЇ ЇШЇП! 
21 ΤΙΝ 
22 ΙΙΙ 
23 ΙΙΙ 
24 ΙΙΙ 
25 ΙΙΙ 
26 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
22 | ШШ ШШШ ШШШ! 
28 ΙΙΙ 
73 ΙΙΙ 


8ο |ІІІ 
в1 ΙΙΙ 
β2 [ΙΙΙ 
83 TANADA 
EE ШШ MOC U A 
85 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
86 [ΙΙΙ 
в? (ШИШ ШШШ 
вв |! ШЇЇ ШИШИ! 
89 ΙΙΙ 
90 ΙΙΙ 
91 [ШШШ 
22 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
93 ΙΙΙ 
94 | ШШШ ШШ 
95 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÑ 
96 [ШШШ ИИИ 
э? | ШШШ ULM 
58 MANODA μη. 
ээ ППТ ON DMNI ON O T 
1@@ | ШШШ LORI M 
1@1 | ЇЇ (ШШШ ШШ 
1@2 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
193 (ШШШ ШШШ 
1@4 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
105 ΙΙΙ 
106 ΙΙΙ 
1ο2 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
198 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
109 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
11@ ΤΝΤ 
111 [ШШШ OA M 
112 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÑ 
sca N D A ТИИТ 
114 {AMINO ТИИТ 
115 ΤΙΜΗ 
116 UUINA ИИИ ТИИТ 
117 {ШЇЇ ЇЇ 
118 |ІІІ ИИ 00 0 ШЇЇ 
119 |ІІІ LEM 
120 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
121 [|lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
122 [[|ΠΠΠΠΠΠΙΠΠΠΠΙΠΙΠΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠ1ΠΠΠΠΠΠΠΠΠ} 


123 [ИШИП 
124 [NMA ШИШ 
125 [ЇЇ (ПШПШ 
126 I|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
122 [AAA UN 
128 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
129 ΙΙΙ 
130 [MANNA NUN AA 
131 | ШШШ 
132 ΙΙΙ 
133 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
seca O UN ИИТИИ ТИТИ 
135 ЇЇ ANM 


SRRD.BCR (FROM PAGE 104) 


ο μμ μμ, 
ο ИИИ ИТИИ 
YAMIN AH A 
μμ. 
μμ, 
6 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
?IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
8 (ШШШ ШЇЇ! 
9 (ШЇЇ ή, 
1@ |! ШШШ 
ο NUM 
12 ЇЇ ЇШЇП! 
αμ, 
14 ΙΙΙ 
15 MIND AAA 
16 |! ШШШ A AP LM 
12 DIANA M 
18 ΙΙΙ 
19 ΤΝ 
29 ΙΙΙ 
21 {ЇЇ NR M 
22 ΙΙΙ 
23 | ШИШ ШЇЇ! 
24 [[1ΠΠΠΠΠΠΠΠΠΠΠΠΠ/ΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΙΠΠΠΠΠΠΠΙΠ1} 
25 |! ШШШ ШЇЇ! 
26 | ЇШЇП ШШШ 
22 | ЇЇ NAM LM 








[1111] ΙΙΙ ΙΙΙ ШШ ΙΙΙ ΙΙΙ | 
Abort Skip Line Stop & Save Resume Yes No 
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28 |ІІІ 
23 [[1ΠΠΠΠΠΙΙΠΙΠΠΠΠΙΠΙΠΠΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠ1} 
30 |! ШШШ ШШ 
31 {ШШШ ШЇЇ 
32 || ШШ ШШШ (ШШШ! 
33 ΙΙΙ 
34 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÑ 
35 [ΙΙΙ 
36 {ШШШ 
3; ШШШ 
38 ΙΙΙ 
39 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
“ο | ЇШЇП IA M 
μμ. 
42 ΙΙΙ 
“3 ΙΙΙ 
44 ΙΙΙ 
“5 ΙΙΙ 
“6 ΙΙΙ 
42 ΙΙΙ 
48 |Т NN  Ἡ T 
аэ ΙΙΙ 
50 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
51 [ΤΙ 
52 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIIIIIIIII 
53 (ШШШ! 
54 {ANITA OND OOOI IOUN ИИТИИ 
55 [ΙΙΙ 
56 MARINA NAM 
5? ΙΙΙ 
5в MNONO O N I U N T 
59 ΙΙΙ 
69 ΜΙΝΙ 
οι [ΙΙΙ 
ο NM 0 AM 
63 ΙΙΙ 
64 [ΙΙΙ 
μι. 
ος [ΙΙΙ 
6? ΙΙΙ 
58 | ШЇЇ μμ, 
μμ. 


- 29 | ЇЇ OA TU EH IM 


22. ΙΙΙ 
22 ΙΙΙ 
23 ΙΒ 
24 ΙΙΙ 
25 ΙΙΙ 
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ОООО ОООО 
22 JAUNE UM 
28 | 
73 ΙΙΙ 
80 {AMMAN ANH VM 
81 ΙΙΙ 
82 ΙΙΙ 
83 ΙΙΙ 
μμ. 
es. (ШШШ 
86 [ШИШИШИ 
82 | 
88 ΙΙΙ 
вэ [[ΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠ} 
5ο [MARINO M AM 
91 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
22 | 
93 {ШШ ШШШ ИШ 
94 | ШЇЇ 
э5 ΙΙΙ 
96 |! AMAA A 
э? | ШШШ! 
эв | ШШШ 
99 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
1@ | ШШШ N 
1@1 |! ШШШ 
1@2 ΙΙΙ 
193 ΙΙΙ 
104 (ШШШ! 
105 ΙΙΙ ΙΙΙ 
ο αι 
1@7 |} ЇЇ U0 NN 
108 |! 
199 | (ШШШ 
μμ, 
ο μμ 
112 ΙΙΙ 
113 ЇЇ ЇЇ ШЇЇ ШШШ 
114 |Т ИИИ 
115 ΤΝΤ 
116 | ШШШ 
112 |! ШЇЇ ШИШИП 
118 ΙΙΙ 
119 ΙΙΙ 
120 ||! ШШШ! 
121 ΙΙΙ 
122 |! (ШШШ ШШШ! 
123 ΙΙΙ 


124 ΙΙΙ 
125 |} ШШШ 
126 |N/A A T 
122 ΙΙΙ 
128 ΙΙΙ 
129 ΙΙΙ 
130 | TAN 
131 ΙΙΙ 
132 ΙΙΙ 
133 |! (ШШШ! 
134 ΙΙΙ 
135 ΠΠ 
136 [ΠΠΠΠΠΠΠΙΠΠΠΙΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠ|11} 
132 ADM M O UO RAM 
138 ||lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
139 |ІІІ 0 ШШШ 
140 |ІІІ 
141 | (ПШПШ 
142 (ЇШЇП 
143 NMA O 
144 | 
145 [|lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
146 ШШШ 
142 ΙΙΙ 
148 [ΠΠ 
149 | ШШШ ШШШ 
15@ (ШШШ 
151 ΤΙΜΗ 
152 |!!! ШШШ 
153 |! ШШШ 
154 |! ШИШ 
155 ||! ШШШ ШШШ! 
156 |! 
152 ||! ШШШ 
158 |! ШИШ 
159 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIN 
160 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
161 |! ШШШ ШШШ 
162 ΙΙΙ 
163 ΙΙΙ 
164 ΙΙΙ 
165 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
166 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÑ 


ο μμ μα, 
168. [MINNA MMI 0 КИТТИ 
165 ΙΙΙ 
170 ΙΙΙ 
121. ΤΙΝ 
122 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
173 ΙΙΙ 
124 AMUN 
125 ΙΙΙ 
126 {ЇЇ ШШШ 
177 |! ЇЇ ШШШ 
178 |||!!! ШШШ 
129 | ШШ ШЇЇ 
xe. | ШШШ ШШШ 
181 ΙΙΙ 
182 {MMMM A O N O 
183 |ІІІ UM M 
184 ΙΙΙ 
185 ΙΙΙ 
1β6 {ЇШЇП 
182 ΙΙΙ ΙΙΙ 
168 |} ШШШ ШИШИП 
189 ΙΙΙ 
159 [ΙΙΙ 
191 ΙΙΙ 
192 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
193 [IIIIIIIII:IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
194 |} ЇШЇП 
195 {ЇЇ ИШИ 
196 ШЇЇ ШШШ 
197 ΙΙΙ 
198 [ΙΙΙ 
199 ΙΙΙ 
290 ΙΒΜ 
291 ΙΙΙ 
292 ΙΙΙ] 
293 [ΙΙΙ 
204 ΙΙΙ 
205 ΙΙΙ 
206 ΙΙΙ 
2972 ΙΙΙ 
298 ΙΙΙ 
2935 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIN 





MALAM ШШ ΙΙΙ 


Rbort Skip Line Stop & Save 


AM ΙΙΙ ШШ 


Resume Yes No 
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| The Rackseller 
ALABAMA 


IOWA 














Birmingham Jefferson News Co . Ames Myers TV & Stereo Repair Toledo Leo's 
Florence Anderson News Co. KANSAS OKLAHOMA 
Madison Madison Books Wichita Lloyd's Radio Oklahoma 
ARKANSAS KENTUCKY City Merit Computers 
[yana Vaughn Electronics/Radio Shack Georgetown Goodwin Electronics OREGON 
ARIZONA Louisville Hawley-Cooke Bookstores Portland Fifth Avenue News 
Phoenix Computer Pro Prospect Falsoft, Inc. Woodburn Pioneer Electronics 
Tri-Tek LOUISIANA PENNSYLVANIA 
Tucson Anderson News Co. Gretna Computer Supply Store Philadelphia Newsy 
CALIFORNIA Slidell Radio Shack Phoenixville Stevens’ Radio Shack 
Citrus Heights Software Plus MASSACHUSETIS Wind Gap Micro World 
Half Moon Bay — Strawflower Electronics Littleton Computer Plus RHODE ISLAND 
Livermore Software Galeria Marlboro Radio Shack Newport Kelly's Variety 
North MICHIGAN TENNESSEE 
Hollywood Levity Distributors Petosky B & L Sound, Inc. Knoxville Anderson News Co. 
Santa Rosa s News Rochester Rochester Book Center Memphis Computer Center 
Sunnyvale Computer Literacy Sterling Heights Software City Nashville Mosko's Book Store 
COLORADO Programs, Inc. Smyrna Delker Electronics, Inc. 
Salida Radio Shack Wyoming Geny's Book Co. TEXAS 
DELAWARE MISSOURI Bay City Impulse Computers 
Middletown Delmar Co. Independence Digital Enterprises, Inc. Ft. Worth A & A Intemational 
Wilmington Normar Inc.—The Smoke Shop St. Louis Software Center VIRGINIA 
NEBRASKA Alexandria Alonso Book & Period 
—: Sei Lincoln Hobby Town Norfolk I-O Computer 
а Raton Software, re, Inc. Wytheville Wytheville Electronics 
Davie Software Plus More NEW HAMPSHIRE 
Ft. Lauderdale Software Connection West Lebanon Verham News Corp. WASHINGTON 
N. Miami NEW JERSEY Kennewick Satellite TV Specialists 
‘Beach Almar Bookstore Clinton Micro World II Mt. Lake 
careo Book Mania Hackensack Total Circulation Service Terrace Emerald Computer 
Panama City Computer Systems Group Pennsville Dave's Electronic Radio Shack WEST VIRGINIA 
Pensacola Anderson News Co. NEW MEXICO Lesage Pioneer Technology 
Tallahassee Anderson News Co. Alamogardo New Horizons Computer Systems WISCONSIN 
GEORGIA Albuquerque News and Bookstore Ladysmith Electronics, Etc. 
Atlanta Guild News Agency Page One Newsstand Madison 20th Century Books 
NEW YORK ARGENTINA 
ILLINOIS Fredonia On Line: Computer Access Center Cordoba Informatica Y Telecomunicaciones 
Chicago Chas. Levy Distr. 
‚ 4 Hudson Falls G.A. West & Co. CANADA: 
Kroch's & Brentano's 
Jackson Street NORTH CAROLINA ALBERTA 
Kroch's & Brentano's Cary News Center In Cary Village Calgary Rainbow Software Services 
Wabash Ave. Sylva Total Data Systems Edmonton CMD Micro 
Prairie News Agency NORTH DAKOTA Kelly Software Distributors 
Oakbrook Kroch's δι Brentano's Fargo Computer Associates BRITISH COLUMBIA 
INDIANA OHIO Sidney Sidney Electronics 
Highland Computer Health Consultants Blanchester JR Computer Control QUEBEC 
Scottsburg Radio Shack of Scottsburg Cincinnati Cinsoft LaSalle Messageries De Presse Benjamin 
T NOVA SCOTIA 
Also available at selected B.Dalton Bookseller stores Halifax Atlantic News 
A : I d SMALL COMUTER CD ING. LZ — — M — 5 
dvertisers Index SODAPOPSOFTWAREJ 68 
ΤΑ S. em ERN PSS EBENE s АРЫНЫ АЛА T РА жг» Ον c LEES SUC SOFEWARR ten г тШ ГАЛЫ ος ιο. ien md 
AMERICAN CRYPTRONICS, ING, LI ann rr emus ааа аз д0 SOPIWARETODEWORES S u tam с > re tato etd | 
ARIES COMPUTER SOFTWARE LL ....ἌἊἊῖ υ- ου ps ro SE μι рев, MAN ΑΙ LADO 5 TOREM LEUR NT μμ | E 
ie RO GAMES. Lure ima а φαν ην με IN ΤΗΝ un iion dici πω μι ων iu mima D 
ATD 3 TNISOPIWARE,J t 7. 11 UI 12.218 
υμών... ο ο daa yy ойг ea ee eS T hte aia | 
у воа сср 7, eS a Sk =. WIZARD 6 
CHEAPWARE 68 





νυν ου ει Ee 
COMPUTER SOLUTIONS UU Еа ee 
DFW COMPUTER GENT ER ——— — ο —dwá————— 5 


DELKER-BDECTRONIGS — — аа un TD ILL = ..% 
ENVISION DESIGNS —— — — — a 162.569 
PBEDERALHILESOFTIWARB. — — ll ——— u 122 
PORTWORIH.GOMPUTERS .—2 1 a Le 
HARD DRIVE SPECIALIST UU — UU Lee D 
HOWARD MEDICAL 60 
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Cindy Shackleford 
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pA M А. 
: 





Ç X X X X X] 


YES , "т coming to Chicago! | want to save by buying tickets now at the special advance sale price. 
Please send me: Name 

three-day tickets at $9 each total ^ à. Address 

one-day tickets at $7 each ‘tal... Ὁ: ls δια 

(Circle one) Friday Saturday Sunday Te Oppia = === = ЕЕЕ Сре 2; 
Saturday Breakfast at $12 each total 1 Company 
Handling Charge $1 О Payment enclosed, OR О Charge to: 
TOTAL ENCLOSED O VISA O MasterCard O American Express 


(U.S. Currency Only, Please) Account Number 
O Also send me a hotel reservation card for the Hyatt Exp. Date 
Regency Woodfield ($60, single or double room). Sionat eo ее ЕЕЕ 
Make checks payable to: PCM. Mail to: PCMfest, The Falsoft Building, P.O. Box 385, U.S. Hwy. 42, Prospect, KY 40059. To make 
reservations by phone, call: (502) 228-4492. 


Advance ticket deadline: May 16, 1986. Orders received less than two weeks prior to show opening will be held for you at the door. 
Tickets will also be available at the door at a slightly higher price. Children under 4, free; 4 and over, full admission price. 





A. A... U. UU LU. το αυ — PH — ee ae Δ. 


ташы” ш ттт "X LM — " 1M ^ DU —— M — — "XL. — M "X W^ — ED 


Nu 
JN 


ИҰ 


С X w x M 2 


ÁN 


C E 


SN 


b" 





All on one ROM. Truly the finest four programs 
available for the Model 100 — guaranteed. 

Try it for 30 days. If you aren't blown away by the 
excellence return it for a full refund. 


The four bestprograms for the Model 
100 all on one ROM. 32K of power with- 
out using any RAM for program stor- 
age. This is the PCSG Snap-In ROM 
that just. presses easily into the little 
ROM socket in the compartment on the 
back. You access the four right from the 
main menu like built-ins. 

Write ROM — the: definitive. word 
processor for the Model 100. Function 
key formatting or dot commands. 
Search and replace. Library feature — 
inserts words, phrases or whole docu- 
ments into text from just a code. MAP 
lets you see a picture of your document. 
In all there are 60 features and func- 
tions. No one can claim faster operation. 
FORM lets you create interactive forms 
with on-screen prompts that you can 
answer from the keyboard. Nothing else 
for the Model 100. compares with the 
features of Write ROM. Exactly the 
same as the Write ROM sold as a single 
program. Infoworld says it "makes the 
Model 100'a viable writing unit... sux 


passed our highest expectations for 
quality and clarity,” 

Lucid Spreadsheet: This is the one 
PICO magazine says “blows Multiplan 
right out of the socket” and Infoworld 
performance rated as “excellent” and 
said "makes the Model 100 compute. " 
Gives you features you cannot get with 
Lotus 123. Lets you build spreadsheets 
in your Model 100 that would consume 
140-150K on a desktop. Program gener- 
ating capability with no programming 
knowledge required. Variable column 
widths, Includes find and sort with func- 
tion key control. It's fast, recalculates 
like lightning. No feature has beentaken 
from the original, only new ones added. 

Database: This is a relational data 
base like no other. - You сап do every- 
thing from mailing lists to invoices. No 
complicated pseudo-coding, you create 
input Screens as simply as typing into 
TEXT. You are not limited by size; you 
can have as large an input screen as you 
wish. Prints out reports or forms, get- 
ting information from as many files as 


(214) 351-0564 


you like. Completé math between fields. 
Total interface with Lucid worksheets. 


Outliner: Does everything that Think- [2 


tank does ona PC but a whole lot better. 
{ncludes a Sort for your headlines. Lets | 
you have headlines of up to 240 charac- jf 
ters. Has cloning, hoisting and sideways | 
scroll up to 250 characters. Like Lucid, 
this one sets a new standard for outlin- 
ers. This is the way to plan and organize 
your projects. 

Present Lucid and Write ROM 
owners can upgrade for $100. If you 
have both it's $75. | 

As usual PCSG sells the Super ROM f 
on a thirty day guarantee. If for any |. 
reason you are not satisfied, simply f 
return it for a full refund. 

We are excited about this product. 
Super ROM gives the Model 100. the 
true power of a desktop. No other multi- 
program ROM has software that. com-. |? 
pares. But don’t take our word forit. We |` 


invite you to make that comparison fi 


yourself. Priced at $199.95 on Snap-In f 
КОМ. i 


Got stuck with somebody elses multi ROM? 
We'll upgrade it for $100. 
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